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PREFACE 



This publication describes the functions (units of processing) and modules (units of code) of the 
Open/Close/End-of-Volume portion of the operating system. It also describes the relationship 
of Open/Close/EOV to the portions of the operating system that give control to and receive con- 
trol from it. Open/Close/EOV modifies system control blocks, and mounts and verifies volumes 
so that I/O operations can be performed. 

This publication is divided into seven sections: 

"Section 1 : Introduction." The introduction briefly describes Open/Close/EOV processing. 

"Section 2: Method of Operation." Diagrams and supplementary text show the input, process- 
ing, and output of each function of Open/Close/EOV. The resident routine, which is used pri- 
marily to transfer control between modules, is discussed at length. The emphasis of the chapter 
is on the functional organization, not the modular organization, of the Open/Close/EOV portion 
of the operating system. The diagrams indicate the relationship between Open/Close/EOV and 
the other portions of the operating system that give control to and receive control from it, (the 
scheduler, the direct access device space management (DADSM) routines, the access method ex- 
ecutors, and user-written routines). 

"Section 3: Program Organization." Module flow diagrams describe module processing in Open/ 
Close/EOV, message numbers of messages issued by each module, register usage within each 
module, and major input and output of each module. 

"Section 4: Directory." Tables of cross-references between the functions in the "Method of 
Operation" section and the modules in the "Program Organization" section provide a link be- 
tween the chapters when a particular module or function is being inspected. 

"Section 5: Data Areas." Illustrations describe the work areas used by Open/Close/EOV. The 
work areas described are the O/C/EOV work area, the JFCBMASK field of the job file control 
block (JFCB), the DCBOFLGS field of the data control block (DCB), the XCTL table, and the 
where-to-go table, which is also used by the access method executors. 

"Section 6: Diagnostic Aids." A cross-reference table of the ABEND messages issued by Open/ 
Close/EOV and the functions and modules that issue them provides debugging information. 
Information is provided on how to use the Problem Determination routines and the diagnostic 
facilities of the Open/Close/EOV resident routine to provide additional debugging information 
for Open/Close/EOV. 



How to Use This Book 



Before using this publication, read the introduction to establish perspective. After that, use of 
the publication depends on the nature of the information you need. 

If you want a general understanding of Open/Close/EOV, read the center block of each figure in 
the "Method of Operation" section. This center block describes the processing performed. 

If you want a more comprehensive understanding, read the center block of each figure and study 
the right and left sides as the arrows direct you. The left side describes the input or conditions 



for performing processing steps. The right side describes the output produced by processing 
steps. Remember that you begin reading each figure by reading the center, or processing block, 
not by reading the left side where the input is shown. Do not assume that the left and right 
sides show every field used as input or output; they show only the setting of fields that signifi- 
cantly affect continued processing. 

If you look in the "Diagnostic Aids" section for the message number of a message you have re- 
ceived, you will find the names of the function and module that issued the message. Then turn 
to the index or the "Directory" to find where that function and module are discussed in the 
"Method of Operation" and "Program Organization" sections. 

If you need further debugging help, consult "How to Use Problem Determination for Debugging" 
in the "Diagnostic Aids" section to see if a trace will help. If the traces provided are not ade- 
quate, consult "Resident Routine Trace" in the "Diagnostic Aids" section for information 
on how to create your own trace. 



Prerequisite Reading 



Before reading this publication, you should consult the following sections of OS Data Manage- 
ment Services Guide, GC 26-3 746: 

"Opening and Closing a Data Set" for a summary of Open/Close/EOV processing. 

"Magnetic Tape Labels and Direct-Access Labels" to familiarize yourself with the information 
contained in volume labels. 

"Exits to Special Processing Routines" to familiarize yourself with the kinds of and purposes of 
these routines. 

You should be generally familiar with how the operating system works, as discussed in OSMVT 
Guide, GC28-6720, and OS MFT Guide, GC27-6939. 

You should also be familiar with the options of the OPEN, CLOSE, and FEOV macro instruc- 
tions as described in OS Data Management Macro Instructions, GC26-3794. 



Related Reading 



Information on the portions of the operating system that transfer control to and receive control 
from Open/Close/EOV appears in the following publications: 

OS BD AM Logic, GY28-6617 

OS BTAM Logic, GY30-2001 

OS DADSM Logic, GY28-6607 

OS GAM Logic, GY27-71 13 

OS I/O Supervisor Logic, GY28-6616 

OS ISAM Logic, GY28-6618 

OS QT AM Logic, GY30-2002 

OS SAM Logic, GY28-6604 

OS TCAM Logic, GY30-2029 



Other publications that may be of interest in conjunction with this manual are: 

OS Data Management for System Programmers, GC28-6550, which discusses how to use OPENJ 
and RDJFCB. 

OS Job Control Language Reference, GC28-6704, which describes JCL options that affect 
Open/Close/EOV processing. 

OS System Control Blocks, GC28-6628, which describes fields used in Open/Close/EOV proc- 
essing. 
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SUMMARY OF CHANGES FOR RELEASE 21 



Reorganization 



Module Names 



Most of the changes to Open/Close/EOV for this release consist of repackaging the existing code 
to eliminate redundancy and needless transfers of control. 

The Open/Close/EOV resident routine is a new module, resident in the nucleus. It waits for I/O 
operations to be completed, transfers control between Open/Close/EOV modules, and brings all 
DCBs to the same stage of processing before transferring control to a user-written routine or to 
another portion of the operating system. Most Open/Close/EOV modules branch to the resident 
routine when any one of these operations is to be performed. 

Open/Close/EOV operations have been divided into functions, which are units of processing, 
not units of code. In some cases, a function has been put into a separate module, rather than 
made part of several modules, to reduce the number of load operations and to simplify the mod- 
ule flow logic. 

Where similar processing is performed for different devices, the modules have been organized so 
that each module contains code applicable to only one device. 



All Open/Close/EOV module names have been changed and begin with IFG. Alias names begin- 
ning with IGG are retained where Open/Close/EOV transfers control to or receives control from 
other portions of the operating system. 



Problem Determination 



The new problem determination routines provide ABEND information, such as a trace of impor- 
tant control blocks, to help you diagnose errors that occur during Open/Close/EOV processing. 
Instructions for how to use problem determination are in the "Diagnostic Aids" section. The 
internal logic of problem determination is treated in the "Method of Operation" and "Program 
Organization" sections. 
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SECTION 1: INTRODUCTION 



The Open, Close, and End-of-Volume operations are supervisor call (SVC) routines that reside 
in the SVC library (S YS 1 .S VCLIB) and operate out of the SVC transient areas. A program 
generally uses these routines by issuing a macro instruction (such as OPEN, CLOSE, FEOV, or 
RDJFCB) whose expansion includes an SVC instruction. Execution of this SVC instruction 
causes control to be passed to the SVC interruption handler, which determines the appropriate 
SVC routine to receive control. 

The Resident Routine 

The Open/Close/EOV resident routine, resident in the nucleus, waits for I/O operations to be 
completed, transfers control between Open/Close/EOV modules, and brings all DCBs to the 
same stage of processing before transferring control to a user-written routine or to another por- 
tion of the operating system. Most Open/Close/EOV modules branch to the resident routine 
when any one of these operations is to be performed. The resident routine is discussed in detail 
at the beginning of the "Method of Operation" section. 

The resident routine can also be used for diagnostic purposes, as discussed in the "Diagnostic 
Aids" section. 

Open/Close/EOV Data Areas 

In addition to system control blocks, Open/Close/EOV obtains and uses three data areas. 

An O/C/EOV work area is obtained for each DCB to be processed. This work area contains 
portions of system control blocks that apply to each DCB. 

A where-to-go table is obtained for each OPEN or CLOSE macro instruction. This table identi- 
fies the next module needed to process each DCB being opened or closed. The access method 
executors obtain this work area for EOV processing. 

A resident routine work area is obtained for each OPEN, CLOSE, or FEOV macro instruction. 
This work area is mainly a list of addresses of event control blocks (ECBs) that is used by the 
resident routine when it waits for I/O operations to be completed. 



Opening a Data Set 



A data set is opened by the execution of an OPEN macro instruction, with or without a specifi- 
cation of TYPE=J. Execution of an OPEN macro instruction that does not specify TYPE=J 
includes an SVC interruption (SVC 1 9) that causes the interruption handler to pass control to 
the Open routines. Execution of an OPEN macro instruction that specifies TYPE=J includes an 
SVC interruption (SVC 22) that causes the interruption handler to pass control to the OPENJ 
routine. 

Open processing (performed by the Open and OPENJ routines) creates linkages between system 
control blocks so that the access method executors can perform the I/O operations requested by 
the processing program. 

Section 1 : Introduction 1 



Much of Open processing is device-dependent, that is, it depends upon whether the data set is 
on magnetic tape or a direct-access device. Open processing mounts and verifies the volume 
supplied by the user, fills in the fields of the UCB that apply to the volume mounted on the 
unit it represents, and merges information from the tape label or DSCB and the JFCB into the 
DCB. 

Both Open and OPENJ are type 4 SVC routines. The major difference between them is that 
Open reads the JFCB from the SYS1 .SYSJOBQE data set into the O/C/EOV work area, while 
OPENJ moves the JFCB into the O/C/EOV work area from the user's region or partition after 
the user has gotten it there by issuing a RDJFCB macro instruction. This allows the user to 
modify the JFCB before the data set is opened. Execution of the RDJFCB macro instruction 
includes an SVC interruption (SVC 64) that causes the interruption handler to pass control to 
the Read JFCB routine in Open/Close/EOV. The OPEN TYPE=J and RDJFCB macro instruc- 
tions are discussed in OS Data Management for System Programmers. 



Closing a Data Set 



The user closes a data set when he is finished reading or writing records from or to it. Execution 
of the CLOSE macro instruction includes an SVC interruption (SVC 20) that causes the interrup- 
tion handler to pass control to the Close routines. 

The Close routines restore the fields of the DCB associated with the data set to the contents they 
had before the DCB was opened (Open modifies several DCB fields); process labels and DSCBs; 
reposition the volume; and release the DEB and access method executors. 

A data set can be temporarily closed if BSAM is used. Temporary closing requires the execution 
of a CLOSE macro instruction that specifies TYPE=T. Execution of this macro instruction in- 
cludes an SVC interruption (SVC 23) that causes the interruption handler to pass control to the 
TCLOSE routine. 

TCLOSE differs from Close in that TCLOSE does not restore the DCB fields, or release the DEB 
or access method executors. TCLOSE performs only label processing and volume repositioning. 
Therefore, when TCLOSE closes a data set, the user may resume input and output operations on 
that data set without reopening it. 



End-Of- Volume Processing 



Open processing creates linkages between system control blocks so that the access method exec- 
utors can perform the I/O operations requested by the processing program. Close processing 
undoes these linkages when the processing program is finished with I/O operations. EOV process- 
ing applies the linkages created by Open processing when the end of a volume of a multivolume 
data set is reached. 

EOV performs the final processing on a data set and mounts and verifies additional volumes, 
checking or building a data set label for each one. EOV processes only one DCB at a time. 

The user can force an end-of-volume condition by issuing an FEOV macro instruction. The ex- 
pansion of the FEOV macro instruction includes an SVC interruption (SVC 31) that causes the 
interruption handler to pass control to EOV. The operating system issues an SVC 55 instruction 
(for EOV) when either the Check routine of BSAM or a synchronizing routine of QS AM deter- 
mines that the volume has ended but the data set has not, or that the data set has ended. 



2 Open/Close/EOV Logic 



The first module loaded for an SVC 31 instruction is the FEOV executor. The first module 
loaded for an SVC 55 instruction is the SYNAD/EOV executor. Both of these executors are 
discussed in OS SAM Logic. The next module loaded for either SVC is the first module of EOV. 
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SECTION 2: METHOD OF OPERATION 



Introduction to This Section 



In this section, Open/Close/EOV is divided into functions. A function is a unit of processing, 
while a module is a unit of code. The emphasis in this chapter is on the flow of control between 
functions. 

The size of a function varies. It might be IK, which is the size of modules that execute in the 
SVC transient area under OS MVT, or it may be less or greater than IK. 

The functions of Open/Close/EOV are illustrated by diagrams. Input to the functions and out- 
put from the functions provide information for a detailed understanding of Open/Close/EOV. 
How to use these diagrams and how these diagrams relate to the rest of the book is discussed in 
"How to Use This Book," which is included in the Preface. A legend that shows the meaning of 
symbols used in this section's diagrams appears on a foldout page following the last diagram. 

This chapter is intended for people who want an understanding of how all or portions of Open/ 
Close/EOV work and how Open/Close/EOV relates to the rest of the operating system. 



The Resident Routine 



WAIT Condition 



The resident routine of Open/Close/EOV is a 504-byte module located in the nucleus. It is includ- 
ed in the nucleus by the system generation inner macro SGIEA3IC and is called by Open/Close/ 
EOV under three conditions: 

• A WAIT macro is to be issued for an I/O operation associated with one or more DCBs being 
processed. 

• An Open/Close/EOV module has finished processing a particular DCB and an XCTL macro is 
to be issued to transfer control to the next Open/Close/EOV module required. 

• A point is reached in the code at which an Open/Close/EOV module must transfer control to 
a module outside Open/Close/EOV. This situation arises when control is passed to the access 
method executors, DADSM routines, or user-written routines. Each module must finish pro- 
cessing all DCBs for an OPEN or CLOSE macro instruction before the module outside Open/ 
Close/EOV can be given control. 

Three entry points, at offsets of 0, 4, and 8 bytes from the beginning of the resident routine, 
are provided for these three situations. A module calls the resident routine by issuing an ICERES 
macro instruction. This macro generates a branch to the resident routine at the appropriate 
offset. The resident routine saves the contents of the registers of the calling Open/Close/EOV 
module in the last part of the O/C/EOV work area. 



When an Open/Close/EOV module issues an IECRES macro instruction for a WAIT condition, 
a branch is taken to the resident routine, which saves the contents of registers 9 to 14, and 1 
in the O/C/EOV work area. The resident routine sets a bit in the O/C/EOV work area 
(DXRESIND=X'80') to indicate that the DCB has a WAIT pending. 
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If there are any DCBs being processed by the module in control without a WAIT pending, and if 
two or more DCBs are being processed, the resident routine restores the register contents of a 
DCB that does not have a WAIT pending and branches back to the module that issued the IECRES 
macro instruction. A DCB is being processed by the module in control if the module ID in that 
DCB's entry in the where-to-go table matches the current module ID in the where-to-go table. 
See the "Data Areas" section for a description of and a discussion on the use of this table. 

If an ECB is posted complete before the resident routine can issue a WAIT for it, no WAIT is 
issued. Thus, an SVC trace table can show EXCP entries for which no WAITs have ever been 
issued. 

The resident routine builds an ECBLIST in the Resident routine work area and, if all DCBs being 
processed by the current module have WAITs pending and have not had their ECBs posted com- 
plete, issues a multiple WAIT. As soon as one ECB is posted complete, the resident routine re- 
stores the register contents of the module that called it, resets the wait-pending bit (DXRESIND) 
in the O/C/EOV work area, and branches back to the module that called it. 



XCTL Condition 



When a module has finished processing a DCB, it issues the IECRES macro instruction to branch to 
the resident routine. The IECRES macro moves the next module's relative track address ID and 
(TTR) into the where-to-go- table entry for that DCB, and control is transferred to that module. k 
When control is returned, the resident routine searches for other DCBs that need to be processed 
by that module. When such a DCB is found, processing is similar to WAIT condition processing, 
described under "WAIT Condition". 

If no other DCBs need to be processed by that module, the resident routine examines the where- 
to-go table for the module with the lowest remaining ID in collating sequence, and moves the ID 
and TTR of that module into the current where-to-go table entry. (A module ID of binary indi- 
cates that the DCB is not to be processed.) 

After the register contents for the first DCB to be processed by the next module have been 
restored, the resident routine issues an XCTL macro instruction to transfer control to the module 
whose ID and TTR appear in the current where-to-go table entry. 



Synchronize Condition 



Before control can be transferred to a module that is not in Open/Close/EOV, such as an access 
method executor, a DADSM routine, or a user-written routine, the DCBs being processed by a 
module must be brought to the same stage of completion. To do this, a module branches to the 
resident routine using the IECRES macro instruction. The resident routine sets the synch bit in 
the O/C/EOV work area (DXRESIND=X'40'). The resident routine then continues in the same 
manner as for the WAIT condition with one exception: when all DCBs being processed by the 
current Open/Close/EOV module have the synch bit on, the resident routine returns directly to 
the calling module. The calling Open/Close/EOV module then transfers control to the outside 
module. 



Parallel Processing 



The resident routine allows a module to perform the same I/O operation on different DCBs at the 
same time; for example, a module can read tape labels for all tape DCBs. The resident routine 
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also allows a module to perform different I/O operations on different DCBs; for example, a 
REWIND can be issued for one DCB and a forward space file for another. 

A module can overlap I/O operations with transfers of control (using the XCTL macro instruction) 
by issuing the IECRES macro instruction. It causes a transfer of control to the next module but 
causes that module to wait for the I/O to be completed. I/O operations are also overlapped 
between tape and direct-access DCBs. 
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EXTENDED DESCRIPTION 


MODULE 


CODE 




NAME 


LABEL 


1 When Open is entered from the SVC interruption 


IGC0001I 




handler, interruptions are disabled. Open enables 


for Open 




interruptions and continues to operate with in- 






terruptions enabled. 






Register 1 points to the DCB parameter list. Each 


IGC0002B 




entry in the list contains an Open option in the 


forOPENJ 




high-order byte and a DCB address in the three 






low-order bytes. The valid options are: 






. . 00 DISP 








1 REREAD 








11 LEAVE 








..0000 INPUT 








..1111 OUTPUT 








..001 1 INOUT 








..0111 OUTIN 








..00 1 RDBACK 








..0 100 UPDAT 






The lock bit in DCBOFLGS is tested to see if the 


IGC0001I 


0IN10200 


DCB has already been processed by Open/Close/ 






EOV. If the lock bit is on, the next DCB in the 






parameter list is processed. 






Register 12 is zeroed and used to count the number 


IGC0001I 


0IN10200 


of DCBs in the user's DCB parameter list. This 






number is used to calculate the Where-to-go table 






length before a GETMAIN macro instruction is 






issued for that area. 






A GETMAIN macro instruction is issued for 488 


IGC0001I 


0IN11600 


(1 E8) bytes for the O/C/EOV work area. The 






control blocks needed by Open for I/O operations, 






primarily the DEB, IOB, and ECB, are set up in 






this work area. Open/Close/EOV used the EXCP 






access method for I/O operations 







EXTENDED DESCRIPTION 



Open obtains the JFCB by reading it in from the 
SYS1 . SYSJOBQE data set, but OPENJ obtains the 
JFCB by moving it from an area pointed to by the 
address that follows a X'07' entry in the DCB exit 
list. 

If the optional trace was requested, a bit is set in 
the WTGPATH field of the Where-to-go table when 
the routine is loaded. 

The resident routine work area is two words larger 
if the optional trace was requested. From this 
point on, the resident routine is used to supervise 
XCTL, WAIT and SYNCH operations. (See 
"Resident Routine" earlier in this chapter for a 
discussion of these operations.) 

The INOUT or OUTIN option is overridden in 
the user's parameter list and restored at the 
end of successful Open processing. 

A dummy data set is indicated if the UCB address in 
the TIOT DD entry is zero or the DSNAME in the 
JFCBisNULLFILE. If the DCB is for a dummy 
data set, JFCBMASK+4 is set to X'20'. Open merge 
is then given control since there are no volumes or 
labels to process for dummy data sets. 

If a volume sequence number is specified for a 
physical sequential data set, it must be less than or 
equal to the number of volume serial numbers 
specified in the DD statement. This requirement 
prevents Open from reading JFCB extensions that 
do not exist and also prevents nonspecific requests 
for any but the first volume. 
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Figure 4: Open Direct-Access - Begin Direct-Access Processing 
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Figure 4. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 An Open option of INPUT, INOUT, or RDBACK is 
invalid for a nonspecific volume request because the 
data set could not yet exist on an unspecified volume 


IFG0194E 


ODA00600 


Each DD statement in the job step has a DD entry 
in the TIOT. The UCB pointers in each DD entry 
in the TIOT are scanned to find a unit that already 
has the specified volume mounted on it. 


IFG0194E 


ODA01600 


3 The mount bit in the UCB is tested to determine 
whether the volume is mounted. 


IFG0194E 


ODA02000 


The UCB not-ready bit (UCBFL2=X'40') is tested 
to see if the unit is ready. This check verifies that 
the volume was not changed before the unit was 
ready . 


IFG0194E 


ODA02000 


If any of the following conditions are met, the 
Volume Verification function on Figure 5 is given 
control: 


IFG0194E 


ODA02000 


• volume serial number not found during UCB 
scan 

• mount bit on 

• UCB not-ready bit on 






4 The DSCB TTR in the JFCB is checked to make 
sure it is larger than the beginningof the VTOC. 


IFG0195A 


ODA10800 


5 If this volume is the second volume of a multi- 
volume data set, the entire VTOC is searched for a 
key equal to the DSNAME in the JFCB. 


IFG0195A 





EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


7 Each chained DSCB is read into its own 144-byte 
work area. The first DSCB work area is chained 
from DSCCORE in the O/C/EOV work area. 


IFG0195A 


ODA12000 


8 If DISP=MOD is specified for a physical-sequential 
data set and the volume serial number selected was 
for the last volume of the data set, the data set 
might not extend that far yet. This function 
searches all the volumes assigned to the data set, 
beginning with the first volume, to find the end of 
the data set. 


IFG0195E 


ODA24100 


10 A message is sent to the operator's console request- 
ing permission to use the unexpired data set. 


IFG0195G 


ODA90400 


1 1 The merge is done only for format 1 DSCBs and is 
bypassed if the inhibit bit (JFCBTSDM=X'04') is 
on. 


IFG0195A 


ODA12600 


The DSCB fields merged into zero JFCB fields are: 






RECFM 

OPTCD 

KEYLEN 

DSORG 

BLKSIZE (except for ISAM load mode) 

LRECL 

RKP 

BFALN 






The JFCBMASK field contains a record of the 
fields merged. 
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Figure 5: Open Direct-Access — Continue Direct-Access Processing 
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Figure 5. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 If the user has specified user header or trailer labels 
for an input data set, Open reads an input label into 
the label buffer and passes a parameter list (which 
includes a pointer to the label buffer) to the user's 
input label routine. This routine processes the input 
label and passes back a return code to indicate 
whether it wants more input labels read. 

Data Management Services Guide describes how to 


IFG0554L 


ULSYNCH 


write user label routines 

4 The TIOT contains a DD entry for each DD state- 
ment. This figure illustrates only one entry. 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


6 If JFCBIND2 in the JFCB is set to X'10\ a password 
is required to read from or write to the data set. If 
the field is set to X'30\ a password is required to 
write to the data set, but not to read from it. 

12 This exit gives the user the option of changing a 
DSNAME or volume serial number and resuming 
processing for this DCB in the Unit Selection 
function (Figure 4). 
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Figure 6: Open Tape — Mount Correct Volume And Determine Label Type 
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Figure 6. (Continued) 



EXTENDED DESCRIPTION 



If the file sequence number in the JFCBFLSQ 
field has not been specified, it is set to the default 
value of 1 . 

If volume statistics are to be kept, the Systems 
Management Facility (SMF) counters and flags 
are cleared. 

If an NL tape was specified, the reduced error 
recovery bit DXDEBOFG=X'0V is set in the 
DEB of the 0/C/EOV work area. 

If the tape density in the JFCBDEN field is 
different from the tape density specified in the 
DCBDEN field, the DCBDEN value is used. 
Subsequent tape processing may reveal that the 
tape density specified in the DCB is wrong. This 
situation produces the density conflict discovered 
during the Final Common function. 

If American National Standard labels are spe- 
cified, option code Q is added to the JFCBOPTCD 
field. 

If an error is detected for an American National 
Standard tape, a demount message is built, If a 
nonspecific request was made, the volume is 
remounted. Otherwise, the tape is unloaded, UCB 
fields are reset, the previous mount message is 
deleted, the demount message is issued, and the 
appropriate internal ABEND code is passed to the 
ABEND Interpretation and Recovery functions of 
Problem Determination 
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EXTENDED DESCRIPTION 


MODULE 


CODE 




NAME 


LABEL 


3 An available unit has these characteristics: it is 


IFG0194F 


OTA07000 


not reserved, does not have a permanently resident 






volume mounted on it, and has a data management 






count in the UCB (SRTEDMCT field) of zero. 






The data management count is a record of how 






many DCBs have been opened on that device. 






5 This function is entered from the following 


IFG0194G 


IFG0194G 


functions: 






NSL Ouptut Interface Figure 9 






Label Editor Figure 8 






SL Output Security Figure 1 






SL Output Rewrite Volume 






Label Figure 10 






11 A nonspecific volume request will not be resolved 


IFG0194I 


OTA16200 


at this point if a referenced JFCB contained a 






pseudo volume serial number (indicated by 






(FFTTR) instead of a real volume serial number. 
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Figure 7: Open Tape — Volume Label Processing 
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Figure 7. (Continued) 



EXTENDED DESCRIPTION 



1 A pseudo volume serial number is X'FF' followed 
by the TTR for the JFCB of the data set being 
opened. 

After a referenced JFCB has been read for a VOL= 
REF request, a test is made to determine whether 
it contains a pseudo volume serial number or a real 
volume serial number. If it contains a pseudo 
volume serial number, JFCBMASK+7 is set to 
indicate that this function must be executed again. 

If the referenced JFCB contains real volume serial 
numbers, the last volume serial number is placed in 
the original JFCB at JFCBVOLS and in the 
O/C/EOV work area at DXVOLMT1 . JFCB 
extensions are read in, if necessary, to find the last 
volume serial numbee. 

This function is entered a second time if a 
referenced JFCB contains a pseudo volume serial 
number. The referenced JFCB is read and the 
volume serial number for the volume that was just 
verified is placed in the JFCB at JFCBVOLS. The 
JFCB is then written back to the SYS1 .SYSJOBQE 
data set. 

3 After the DCBs are synchronized, that is, all DCBs 
being processed in parallel are processed up to the 
same point, the resident routine pointer is saved 
in register RD. The DCB parameter list pointer is 
loaded into register RPAR,and this function 
transfers control to OMODVOL1 . 
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CODE 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


4 This step is only executed if the user has provided a 
label editor (OMODVOL1 ). 


IFG0194J 


OTA19100 


5 This step is only executed if the user did not provide 
a label editor. 


IFG0193C 


OTA 19500 


JFCBMASK+5 is checked to determine if entry is 
due to a label error or density conflict. 


IFG0193D 


OTA20400 


6 A read is issued to obtain a data set label. If a data 
cannot be read, a remount is required. 


IFG0193D 


OTA20400 


11 If a label has been destroyed, another must be 
created to take its place.. If an American National 
Standard label is destroyed, for instance, an IBM 
standard label is created. 


IFG0193D 


IFG0193D 


If NL or NSL was requested, the tape is rewound 
and a tapemark is written. If there is an I/O error 
while writing the tapemark, an error message is 
written and an exit is taken to the Label Editor 
function for a remount. 


IFG0193D 


OTA21100 


After the tapemark is written, a message giving the 
tape attributes is issued. An exit is then taken to 
the Volume Verification function to reprocess the 
DCB. 


IFG0193D 


OTA21200 
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Same pseudo volume serial number means unit 
assigned to scratch data set 

Pseudo volume serial number from UCB 
First unit address from.TIOT 



0= "SCRTCH "for nonspecific requests 
= Last volume serial number for VOL=REF 
requests 



For nonspecific volume requests and pseudo volume 
serial numbers, the volume serial number assigned 
to the data set is that of a scratch volume. 
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For VOL=REF requests where the referenced JFCB 
contains volume serial numbers, the volume 
serial number assigned to the data set is the last 
volume serial number in the referenced JFCB or 
JFCB extension. 
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Figure 8: Open Tape — Standard Input Label Processing 
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Figure 8. (Continued) 
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EXTENDED DESCRIPTION 



1 No positioning is required for SYSIN data sets. 

The block count in the DCB (DCBBLKCT) is zeroed 
in all DCBs except EXCP DCBs, which don't have 
the device-dependent portion of the DCB. 

2 The JFCB file sequence (JFCBFLSQ) field is set to 
one for SYSOUT data sets, because there is one 
SYSOUTdata set opened for DISP=MOD that is 
continually being modified. 

If the file sequence number in the UCB (SRTEDMCT) 
is not zero, the file sequence must be obtained from 
the first header label. If the file sequence number 
in the UCB is zero, the file sequence number and 
count are set to one. 

If the JFCB file sequence number is greater than 
one, the header label for the first data set is read in 
and the file sequence number from the label is 
placed in the UCB. 

3 For Input or Output data sets, the UCB file sequence 
number is set equal to the JFCB file sequence number 

For RDBACK INPUT data sets or DISP=MOD 
OUTPUT data sets, the UCB file sequence number 
is set equal to the JFCB file sequence number plus 
one. 

5 The last seventeen characters of the DSNAME in the 
JFCB are compared to the DSNAME in the label. If 
they do not match and the data set is a generation 
data set, the tape may have been created under DOS. 

After the DSNAME has been verified, the block 
count is moved from the label to the DCB 

After the DSNAME has been verified, the block 
count is moved from the label to the DCB 
(DCBBLKCT). (This is only done if the label read 
is a trailer label, and in the case of an EXCP 
DCB, the device-dependent section of the DCB 
is present). 
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CODE 
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OTA26900 
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EXTENDED DESCRIPTION 



6 If the data set is open for output with DISP MOD 
and the expiration date has not passed, a message 
asks the operator to decide whether to accept the 
tape or not. If the operator replies "M," an exit is 
taken to Problem Determination to terminate 
processing. If the operator replies "U," the data set 
is checked to see if it is password protected. 

7 If the security byte on an ASCII volume is not blank 
and does not indicate read and write security, the 
volume cannot be used. An ASCII accessibility 
error message is issued. 

If the security byte in the label indicates a protected 
data set with American National Standard or IBM 
Standard labels, the security bit in the JFCB 
(JFCBIND2=X'10') is set, as are the JFCB modified 
bit (JFCBMASK+4=X'80') and the password required 
bit (JFCBMASK+4=X'04'). An exit is taken to the 
Input/MOD File Label 2 function if a data set is 
password protected. 

8 This step merges the second file label with the 
information in the JFCB 

If a tapemark is read instead of a second file label, 
the tape was created under DOS and control is 
passed to the Input User Label function. 

If the label read is a user header or user trailer 
label, the tape was created under DOS. The tape 
is backspaced over the user label. 

9 After a second file label has been read, a test of the 
JFCB full switch (JFCBTSDM) is made. If it is on 
(X'04'), the merge is bypassed. The merge is also 
bypassed for an ASCII volume not created under OS. 

10 If the password-required bit (JFCBMASK+4--X'04') 
is set, an exit is taken to the Security function to 
read the password. 
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Figure 9: Open Tape - No Label/Bypass Label Processing and Nonstandard Label Input and Output Interfaces 
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Figure 9. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


[3) For 1 NPUT and OUTPUT data sets, the UCB file 
sequence number is set equal to the JFCB file 
sequence number. 

For RDBACK and DISP=MOD data sets, the UCB 
file sequence number is set equal to the JFCB file 
sequence number plus 1 . 

I 1 | If this is the first entry, this function saves registers 
RTIOTand RUCB in the O/C/EOV work area at 
DXXCTL. It then issues an IECRES macro in- 
struction to synchronize NSL DCB processing. 
After DCBs have been synchronized, register 5 is 
set to point to the DCB parameter list before con- 
trol is transferred to NSLOHDRI. 

The NSL routine is given the full parameter list for 
processing. It is required that the NSL routine save 
and restore registers. 

I 2 I If the NSL routine rejects the volume, the tape is 
unloaded. A mount message is constructed in the 
O/C/EOV work area to remount the volume. A 
rejection switch is set in the Where-to-go table 
(WTGPATH+1=X'02') to indicate a tape was 
rejected. 


IFG0195C 
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OTA50700 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


|4j If the first record contains the first four characters 
"VOL1 ," the tape is unloaded and the message 
issued again. The tape is rewound if it is an accept- 
able NSL tape. If a channel error or a unit check 
other than a data check occurs, an exit is taken to 
problem determination. 

1 This function is also entered from the Final Common 
function (Figure 6) after reject processing has 

been performed. 

If this is the first entry, registers RUCB and RTIOT 
are saved in the O/C/EOV work area at DXXCTL. 
The IECRES macro instruction is issued to synch- 
ronize NSL DCBs. After DCBs have been synch- 
ronized, control is transferred to NSLOHDRO. 

2 The mount bit in the UCB (SRTEDMCT=X'80') is 
tested to determine if the tape was accepted. If the 
mount bit is set to one, the tape was not accepted , 
The rejection switches in the Where-to-go table 
(WTGPATH+1=X'02') and the JFCB (JFCBMASK+5 
=X'08') are set. The data management count in the 
UCB (SRTEDMCT) is set to zero and an exit is 
taken to the Volume Mounting function. 
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Figure 10: Open — SL Output Processing 
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Figure 10. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 The security bit (JFCBMASK+4=X'04') is tested to 
determine whether the password was read, which 
indicates that security processing was previously 
performed. If so, this function is skipped. 

3 A read is issued for header label 1 . 

If a tapemark is read, the security bit (see 2 above) 
is set to bypass the date protection function, 
which follows. 

5 If a DSNAME or I/O error occurs, the data 

management count in the UCB (SRTEDMCT) is set 
to zero, the volume serial number in DXVOLMT1 
is set to SCRTCH, and the first volume serial 
number in the JFCB (JFCBVOLS) is blanked out. 
This sets the conditions for a scratch volume 
request. The rejection switch (JFCBMASK+5= 
X'80') is set and an exit is taken to the Volume 
Mounting function to reprocess this DCB. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


10 If an I/O error occurs while processing the first 
volume label on the first volume of a data set, the 
following steps are taken to recover from the 
error: 

• Set DXVOLMT1 in the O/C/EOV work area to 
SCRTCH 

• Zero data management count in the UCB 
(SRTEDMCT) 

Blank the volume serial number in the JFCB 
(JFCBVOLS) 

An exit is then taken to the Volume Mounting 
function which will request that a scratch volume be 
mounted. 

13 If the DCB exit list does not exist, or if it does not 
contain a user header label exit, user label process- 
ing is bypassed. If the label exit routine exists, 
registers 5-12 are saved in the user label work area, 
and the user label count in the user label work area 
is set to zero. 

14 Unless American National Standard user labels are 
being processed, the user label count is increased 
by one and tested for the maximum number of 8 
IBM standard user labels. 
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Figure 11: Open Security 
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EXTENDED DESCRIPTION 



1 This function is entered from the following Open 
functions: 

ISAM/BDAM Parallel Mounting (Figure 5) 

User Header/Trailer Labels (Figure 5) 

BPAM Concatenation (Figure 5) 

Final Common (Figure 6) 

SL Input DISP=MOD File Label 2 (Figure 8) 

SL Input User Header Label (Figure 8) 

or the following EOV functions: 

Standard Header Label (Figure 32) 
Mount Ahead (Figure 36) 

This function verifies the password of one or more 
password-protected data sets. A check is made to 
determine whether security processing can be by- 
passed for TSO tasks. 

2 If processing Open or EOV requests, a security work 
area is obtained. 

If a Scratch or Rename request is being processed, a 
security work area is obtained. 

3 If an Open or EOV request is being processed, this 
function reads the address of the password data set 
into the security work area. If the identifier 
(format 1 ) DSCB cannot be located, a 213 ABEND 
is issued. 

If a Scratch or Rename request is being processed, 
this function reads the address of the password data 
set into the security work area. If the identifier 
(format 1 ) DSCB cannot be located, a code of 
X'20' is returned to Scratch or Rename in register 
10. 

4 This function is entered if a task running under the 
time-sharing option (TSO) requires password- 
protection (security) processing. It may be entered 
as a result of an Open, EOV, Scratch, or Rename 
request. Whether or not it is a TSO task is de- 
termined by examining the TCBTSFLG field of the 
current TCB. If a TSO task is requesting password 
protection processing, this section of code obtains 
the address of the first data set extension (DSE) 
block from the TJBX; the DSEs are searched for a 
matching DSNAME. 



MODULE 
NAME 



IFG0195T 



IFG0195T 



SECLOADA 



IFG0195T 



SECLOADA 



IFG0195V 



CODE 
LABEL 



OSQ1 0400 



OSQ1 0600 



OSQ50200 



OSQ11200 



OSQ50200 



OSQ30400 



10 



11 



EXTENDED DESCRIPTION 



The DSEs are searched for a DSNAME that matches 
the DSNAME of the password-protected data set 
being processed. (Register 1 contains the address 
of the DSNAME passed.) 

If a matching DSNAME is found in a DSE and a 
password record address (in TTR format) exists in 
the DSE, this function issues an ENQ macro for the 
DSNAME, reads the password record,and compares 
the DSNAME with the DSNAME passed in Register 1. 

If no matching DSNAME is found in the DSE 
chain, this function checks for the presence of a 
master password in the TJBXPSWD field of the 
TJBX. 

This function issues a WTOR macro instruction to 
the operator console or TSO terminal to get the 
password. One retry is made to allow for operator 
error. If the correct password is not supplied, a 
913 ABEND is issued. 

This function searches the password data set for the 
matching DSNAME and password. If the password 
record containing the matching DSNAME and pass- 
word are found, the record is read into the security 
work area. This is performed in IFG0195U for 
Open or EOV requests or in SECLOADA for Scratch 
or Rename requests. 

If the search is successful for an Open or EOV re- 
quest, the protection-mode indicator in the pass- 
word record (which can indicate a read-only data 
set or a data set that can be opened for both reading 
and writing) is compared with the use mode of the 
data set (from the option byte of the current DCB 
parameter list entry). If the protection-mode 
indicator is incorrect (for example, the user is open- 
ing the data set for output, but the protection- 
mode indicator allows read-only), a 913 ABEND is 
issued. If the search is successful for a Scratch or 
Rename request, control is returned to Scratch or 
Rename via XCTL. 

If the use mode (input or output) is compatible 
with the protection mode (read-only, read-write), 
the use count in the password record is increased by 
one and the updated record is written to the pass- 
word data set. 

If all of the data sets requiring password processing 
have been verified, control is passed to the Open or 
EOV calling function (see list of Open and EOV 
calling functions in Step 1 ). 
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Figure 12: Open Merge 



See note 1 
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Figure 12. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 Open Merge is entered from the following 
functions: 

Tape Final Common (Figure 6) 

Tape Volume Reference (Figure 7) 

Tape SL Input Positioning (Figure 8) 

Tape SL Input DISPHvlOD File Label 2 

(Figure 8) 

Tape SL User Label (Figure 8) 

Tape NL/BLP Positioning (Figure 9) 

Tape NSL Input Interface (Figure 9) 

Direct-Access Read DSCB (Figure 4) 

Direct-Access User DHR/TLR Labels (Figure 4) 

Direct-Access BPAM Concatenation (Figure 5) 

Direct-Access ISAM/BDAM Parallel Mount 

(Figure 5) 

Open Security 1 Figure 1 1 ) 

Each of the merge tables used in this step contains: 

• an access-method dependent section that 
contains the DCB fields peculiar to each access 
method; 

• a common section that contains DCB fields 
common to all access methods. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 Register contents passed to the user are: 

Register 1 = address of DCB 

Registers 2-13 = user's registers 

Register 14 = return address, points to SVC 3 

routine 

Register 15 = address of user's DCB exit routine 

3 The merge applies unconditionally to data sets 
being open for OUTPUT and OUTIN. For data sets 
being opened for RDBACK, INPUT, and INOUT, 
DCB fields are merged into only those JFCB fields 
that contain zeros. 

4 When control is transferred to the user's output 
header label routine, the user is passed a pointer to 
the label buffer. The user builds the header label 
and then transfers control back to Open to have the 
header labels written to his data set. 
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Figure 13: Open — Access Method Executor Processing 
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Figure 13. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 This function is entered from the following 
functions: 

Tape-SL Output Header Label Writing (Figure 10) 
Tape-SL Output User Labels (Figure 10) 
JFCB to DCB Merge (Figure 12) 
User Output Header Labels (Figure 12) 

2 The Where-to-go table is used throughout Open/ 
Close/EOV processing to identify the next or 
current module needed to process each DCB. After 
Open sets it up for the access method executors 
and transfers control, the access methods use the 
Where-to-go table and pass it back to Open when 
they are through. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


5 Continued 
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Figure 14: Open — Final Termination 
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Figure 14. (Continued) 



EXTENDED DESCRIPTION 



This merge is only done for output processing. 
The corresponding second step of the backward 
merge for tape is the writing of output standard 
labels, which occurs before control is given to the 
access method executors. 

If the write-back indicator is on, the updated 
DSCB is written back to its location in its VTOC. 
(The CCHHR was saved in DSCCW7 in the 
O/C/EOV work area when the VTOC was first 
searched.) 

If the EXCP access method is specified, bit 2 of 
the DCBMACRF field is set. The module IDs of 
EXCP appendages are put in the EXCP access 
method interface section of the EXCP DCB. 
Open supplies IGG019 as the leading six characters 
of the module names. The user must have link- 
edited his modules into SYS1 .SVCLIB or be using 
standard appendages that already exist in SYS1 . 
SVCLIB. 

The order of the appendages in the DCB does not 
correspond to the order in the DEB appendage 
vector table. The PCI and SIO appendage I Ds are 
swapped in the DCB to correspond to the DEB 
during loading. 

After the EXCP appendages have been processed, 
the PCI and SIO module IDs are put in their 
original locations. 
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CODE 
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EXTENDED DESCRIPTION 



Since records may be blocked, the number of 
logical records is obtained by counting the number 
of EXCPs. Short blocks, variable length record 
headers, and short variable length logical records 
can cause this EXCP count to be inexact. 

The number of logical records (EXCPs) is calculated 
by multiplying the OUTLI value in the JFCB by the 
contents of the DCBLRECL field, dividing by the 
DCB BLKSIZE field, and adding one if there is a 
remainder. This calculation does not consider the 
difference in the relationship between LRECL and 
BLKSIZE for F, V, and U type records. 

The JFCB is written back unless the write-back 
inhibit bit is set (JFCBTSDM=X'08'). This bit 
allows the Nucleus Initialization Program (NIP), 
which is loaded during IPL, to open system data 
sets, including SYS1 .SYSJOBQE, before SYS1 . 
SYSJOBQE contains valid JFCBs. 

If the DCBOFLGS lock and busy bits are still on, 
the DCB has just been successfully opened. The 
open bit is turned on and the busy bit off. 
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Figure 15: Close Contents 
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Figure 16: Close— Overview of Processing 
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Figure 17. (Continued) 
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EXTENDED DESCRIPTION 



This function checks the open bit and lock bit of 
the DCBOFLGS field; both must be set to 1 (on)] 
to indicate that the DCB is open and that user-exit 
routines are no longer in control. If these bits are 
both on, it verifies that the DEB on the current 
TCB DEB chain points to the right DCB and sets 
busy bit (bit 7) of the DCBOFLGS field to 1 to 
indicate that this DCB is currently being processed 
by Open, Close, or End-of-Volume. 

The address of the resident routine is put in the 
WTG table (which consists of 40 bytes plus 8 bytes 
for each DCB to be processed) after the table has 
been set to zero. An O/C/EOV work area is 
acquired for each DCB to be closed. The O/C/EOV 
work area requires 488 bytes unless trailer label 
processing has been deferred from end-of-volume 
to end-of-data at the user's request, in which case 
536 bytes are needed. 

The control blocks built by this routine for EXCP 
I/O operations include a valid DEB, but the only 
part of the DCB included is a DEB pointer. 

EXCP and ABEND I/O requests against this DCB 
are purged. This is normally done by the access 
method executors. 

The offset of the DD entry for this data set in the 
TIOT for the DCB is obtained, the relative 
address of the JFCB is converted to an absolute 
track address using the resident conversion routine 
(I ECPONVT), and the JFCB is read into the 
O/C/EOV work area. For rotational position 
sensing (RPS) devices, a channel program is 
built. This routine then links to the resident sector 
conversion routine (IECPSCRI) to convert the 
sector value. No JFCB is read into the O/C/EOV 
work area for system tasks. 
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CODE 
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EXTENDED DESCRIPTION 



6 The device type is determined, and the module IDs 
of Close tape or direct -access routines are put in 
each active DCB entry of the Where-to-go table. 

7 The JFCBMASK field is tested to determine 
whether an optional trace or SMF information was 
requested by the user. 

8 Main storage for the resident routine work area is 
acquired. This work area is an ECBLIST, which is 
4 (n+1 ) bytes long where n is the number of DCBs 
being closed. If an optional trace has been re- 
quested by the user, the resident routine work area 
is two words longer, and the address of the close 
parameter list is saved in the first word of the work 
area. 

10 If the data set being closed resides on a direct-access 
device and was open for output, or user labels have 
been specified, this routine reads the data portion 
of the identifier (format 1 ) DSCB into the O/C/EOV 
work area. 

12 Transfers control to the close access method 
executors using the XCTL macro instruction. 

13 When control is returned from the access-method 
executors, the device type is determined. Sub- 
sequent transferring of control is handled by the 
resident routine. 
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Figure 18: Close Tape — Label Handling 
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Figure 18. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 Checks the write bit of the DCBOFLGS field to 
determine whether the last operation was a write 
(indicates an output data set is being closed). 

Writes a tapemark and standard trailer labels for 
output data sets. Information for the labels is 
gathered from the JFCB, TIOT, DCB, and UCB. If 
AL is specified, the labels are translated to ASCII 
before they are written. Additional information on 
standard and user labels can be found in OS Tape 
Labels. 

3 Processes standard user labels (SUL or AUL) if 
JFCBLTYP field equals X'08\ If an input data set 
is being closed, a user label is read into the label 
buffer. If an output data set is being closed, a 
cleared buffer is passed to the user's program. 
Control is passed to the user's label routine via a 
SYNCH macro instruction (SVC 12). When control 
is returned from the user's label routine, the user's 
return code in register 15 is examined to determine 
whether label processing should continue. 

4 Checks to see if nonstandard labels (NSL) are 
requested. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


5 If a Systems Management Facility (SMF)=type 14 
or 15 record is required (data set activity is being 
monitored by SMF), this routine transfers control 
to the SMF routines. This must be done before 
control is passed to the user's NSL routine because 
these routines alter the volume's disposition (which 
may change the information that is to be gathered 
for the SMF records). 

6 This routine is entered from Close and TCLOSE 
tape routines for processing nonstandard labels. If 
NSL processing was deferred from end-of-volume 
to end-of-data, control is transferred to NSLETRLI 
so the user can process nonstandard labels. When 
control is returned, the extra 48 bytes of the 
O/EOV work area needed for deferred label 
processing are freed. 

Transfers control to NSLCTRLO so the user can 
process nonstandard, output labels and perform 
volume disposition. Checks for entry from TCLOSE 
and returns control appropriately. 

8 Error statistics by volume (ESV) are written either 
to the operator's console or the SMF data set. 
See OS I/O Supervisor Loqic. for details on 
VOLSTAT (SVC 91). 
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Figure 19: Close Tape — Volume Disposition Processing 
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Figure 19. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 This function positions tape volumes according to 
the close option specified by the user and updates 
the UCB accordingly. For SYSIN, SYSOUT, and 
null data sets, no positioning is necessary. For 
unlabeled tape, tapemarks are written after the data. 
For standard labeled tapes, tapemarks are written 
after the trailer labels. If REREAD is specified and 
the data set is the first one on the volume, the tape 
is rewound. If the data set is not the first one on the 
volume, four backspace files and one forward space 
file are issued for labeled tape or two backspace 
files and one forward space file are issued for un- 
labeled tape. 


IFG0202F 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 If no options (LEAVE, REREAD, REWIND, DISP) 
are specified, DISP is assumed and the TIOESTTA 
field (byte 2 of the TIOT DD entry for the data 
set) is examined to determine DISP action. If 
KEEP is requested for a reserved data set, a 
REWIND is issued and the rewind bit (bit 3 in the 
UCBWGT field) is set to indicate to the job 
scheduler termination routine that no rewind is 
necessary. The logical (SRTEFSEQ) and physical 
(SRTEFSCT) data set sequence numbers in the UCB 
are cleared. No demount message is issued for re- 
served volumes. 
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Figure 20: Close Direct-Access Processing 
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Figure 20. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 This function is entered to close output data sets on 
a direct -access device. If the identifier (format 1 ) 
DSCB was not modified, it is read in again. The 
absolute address in the DCBFDAD field is converted 
and written to the identifier (format 1 ) DSCB. The 
track balance field (DSCBSIND) and last volume 
indicator are updated. For partitioned data sets, the 
directory count (DSCBCDBL) is also updated. 

3 If unused space is to be released before the data 
set is closed (DEBOFLGS field set to X'10'), 
control is transferred to the DADSM release routine 
(see OS DADSM Logic). Bit of the WTGPATH 
field in the Where-to-go table is set to 1 to indicate 
partial release requested. When control is returned 
from the release routine, a check is made for errors 
encountered during release processing; on error 
conditions, this function sets internal ABEND code 
to 87, dequeues the VTOC, and transfers control 

to problem determination. 

4 Writes updated identifier (format 1 ) DSCB to the 
VTOC; if partial release is in effect, the VTOC is 
dequeued. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


5 This function is entered if user labels are required 
for a data set opened for input or update. Trailer 
labels are read and passed to the user's label pro- 
cessing routine which is pointed to by the DCB exit 
list. If updating is necessary, this routine writes the 
user's updated labels when control is returned from 
the user's label routine. 

This function is also entered if user labels are re- 
quired for data sets opened for output. If the 
current volume of the data set is not the first volume 
this function must find the first volume and read in 
the identifier (format 1 ) DSCB of that volume. 
If the first volume is not mounted, no user 
label is written. Control is passed to the user's label 
routine to format the labels. When control is re- 
turned, the labels are written by this routine. 

6 This function is entered to write a file mark or to 
terminate a physical sequential, output data set. If 
no space remains in the data set, no file mark is 
written . 

7 If SMF information is required, this routine passes 
control to the SMF routines. If not, control is 
passed to the Close Final function by calling 

the resident routine. 
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Figure 21: Close - SMF Record Building 



Input for the type 1 4 and 1 5 
records includes the TIOT, 
JFCB, DCB, and DEB for the 
data set being processed, and 
the UCB for the volume on 
which the data set resides. 
The specific fields are shown 
in OS SMF. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 Builds JFCB, DEB, DCB segments of SMF record. 
Checks are made for device type and an appropriate 
UCB segment is built for the data sets residing on 
tape and DA devices. 

Determines the type of SMF record to be built. 
If the Close option in DCBOFLGS is INPUT or 
RDBACK,a type 14 SMF record is to be built. If 
the Close option in DCBOFLGS is OUTPUT, 
UPDATE, INOUT, or OUTIN,a type 15 record is 
to be built. 
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CODE 
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3 Issues SMFWTM (SVC 83) to write the record to 
the SYS1.MANX data set 
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Figure 22: Close Final Processing 
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Figure 22. (Continued) 



EXTENDED DESCRIPTION 
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NAME 


CODE 
LABEL 


1 If concatenation of data sets with unlike attributes 
is in effect (DCBOFLGS=X'28'), the input sychron- 
izing and error processing routine (IGG019AQ) or 
the check routine (GG019BB), whichever is being 
used, is not deleted. If user totaling is in effect, the 
user-totaling save area is freed. 

2 Restores fields of DCB to what they were before 
Open merge took place. The OPTCD, BFTEK, 
BFALN (HIARC bits and 5 are not restored), 
DEVT, and DVTBL fields for direct -access DCBs 
are restored. For nonconcatenated data sets, the 
MACRF, IFLGS,and DDNAM fields are restored. 
For TCAM DCBs with DSORG=TX or TQ, the 
BUFMAX, PCI, RESERVE, BUFSIZE, and THRESH 
fields are restored to 0, if they had been merged 
from the JFCB during Open processing. 
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3 Removes the DEB for this data set from the TCB 
DEB chain. 

4 The data management count (SRTEDMCT field) 
is the count of open DCBs. If the count is 0, it 
is not decreased. 

6 Releases the O/C/EOV work area and resident 
routine workarea (ECBLIST). If there is an 
IRB address in the DEB, it is also released. Releases 
the Where-to-go table. 
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Figure 23: TCLOSE - Overview of Processing 
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Figure 24: TCLOSE Initialization 



Register 1 



SVC 23 



DCB parameter list 




DCB 



DCB 



CVT 



CVTTCB 



DCBOFLGS 
DCBMACRF 

DCBDEN 



— J 



rr 



TCB 



TCBDEBAD 




-® 






DEB 



DEBDCBAD 



Address of 
*DCB 






TIOT 




Initialization 



1 Lock and open bits on in one 
DCB? 

2 Get main storage for Where-to-go 
table 

3 Check for BSAM data set and 
proper DEB-DC B pointers 



Get more area and builds control 
blocks 



4 

5 Purge outstanding ABEND I/O 



requests; Unit record device? _ 
Read JFCB 



Get main storage for resident 
routine work area 



(A>**8 



Optional trace requested? — yes (G 

Determine device type and label 
processing required 

Unit record or teleprocessing device 



Direct-Access device 
NSL tape 

SL or AL tape 
opened for input 

opened for output 



UCB 




EXCP 
control 
blocks: 
DEBJOB 

CCWs 

and 

volume 

serial 

numbers 



T| Busy bit 
set 



> second entry 
WTG table 



UCBTYP 






_ WTGPATHS _ 

©&wmm mmmtfrzz© 

WTG entry 



o 
3 



13* 

o 
o 
O 

»-$ 
P 

o 



Figure 24. (Continued) 



EXTENDED DESCRIPTION 
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CODE 
LABEL 


1 Checks the lock and open bits of DCBOFLGS; if 
both are on (set to 1 ), it is assumed that the DCB is 
to be temporarily closed and processing is continued. 
If no DCB in the parameter list has both bits on, 
control is immediately returned to the caller. 

2 If one or more of the DCBs represented in the para- 
meter list passes the step 1 check, this step gets 
main storage for the WTG table, which is used for 
all DCBs being processed. 

3 To perform TCLOSE processing, the lock and open 
must be on in DCBOFLGS,the busy indicator in 
DCBOFLGS must be off, the access method must be 
BSAM (as indicated in the DCBMACRF and 
DCBMACRF + 1 fields), and the DEB pointed to 

by DCBDFBAD must be on the TCB DEB chain. 
This DEB must also contain the address of the 
DCB. If all of the validity tests are successful, the 
busy bit (in-process indicator) is turned on in the 
DCBOFLGS field, unless the device type is a 
terminal (TSO task). For TSO terminals, TCLOSE 
turns off the EOF indicator in the DCVIND1 
field. 

4 This section of code gets a 488-byte O/C/EOV 
work area for each DCB to be processed by 
TCLOSE, unless deferred NSL processing is re- 
quested, for which a 536 byte work area is re- 
quired for EOV processmg. 
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5 Issues a PURGE macro instruction specifying the 
QUI ESCE I/O option. (See OS Data Management 
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IGC0002C 
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TCM 19000 
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TCM35000 
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TCM24000 
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for System Proarammers.) 

6 Reads the JFCB and determines whether the trace 
option is in effect (indicated by the JFCBMASK 
field); if so, it sets the trace bit in the WTGPATHS 
field of the WTG table 

7 Gets main storage for a resident routine work area 
(ECBLIST). This work area is (n + 1 ) 4 bytes (plus 
8 bytes if the optional trace is requested) where 

n is the number of DCBs being temporarily closed. 
This routine saves the address of the TCLOSE 
parameter list in the first word of the area. 

8 After initialization has been performed for each 
DCB, this function transfers control to the trace 
initialization function if indicated by the trace 
bit in the WTGPATHS field. 

9 Checks the UCBTBYT3 field to determine which 
TCLOSE function to transfer control to*. (TCLOSE 
final Function)for unit record or teleprocessing 
devices, TCLOSE direct -access function, or 
TCLOSE tape function.) 

If the JFCB indicates NSL processing for a tape data 
set, this routine transfers control to the Close 
Tape — Label Handling (NSL) function. Other- 
wise, control is passed to the TCLOSE tape 
function 









O 

o 



w 
o 
< 

o 
o 



Figure 25: TCLOSE Tape — Label Processing and Volume Positioning 
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EXTENDED DESCRIPTION 



2 Process standard labels for output tape data sets 
being temporarily closed. One tapemark is written 
to delimit the data. This function is reentered from 
FEOV processing (step 3) if a new volume has been 
mounted. 

3 For SL and AL tape data sets, a test is made to 
determine whether end-of-tape was sensed when the 
tapemark was written, and, if so, whether LEAVE 
was specified; if both conditions are met, the tape is 
backspaced past the tapemark and an FEOV macro 
instruction is issued to write trailer labels, mount 

a new volume, and write header labels on the new 
volume, after which normal TCLOSE processing is 
continued. 

4 Writes EOF1 and EOF2 labels following the tapemark 
(data delimiter) using information from the DCB, 
UCB, JFCB, and TIOT DD entry. 

5 This function is entered from TCLOSE initialization 
for input data sets on tape. If user labels are re- 
quested and if the data set was opened for input, 
this function reads the label into the user's label 
buffer and passes control to the user's label routine 
to verify the label. If the data set was opened for 
output, this function passes the user's program a 
buffer in which the user builds his label. The user 
returns control to this function to write the label. 

6 Entered after user-label processing and for NL tape 
data sets, this function determines whether the user 
wrote a user label to tape. 

7 If a label was written, two tapemarks are written to 
delimit either the data (NL tape) or the labels 

(SL or SUL tape). 

8 For NL tape data sets, a test is made to determine 
whether end-of-tape was sensed and, if so, whether 
LEAVE was specified; if both conditions are met, 
the tape is backspaced past the tapemark and an 
FEOV macro instruction is issued to write trailer 
labels, mount a new volume, and write header labels 
on the new volume, after which normal TCLOSE 
processing is continued. 

9 The tape volume is positioned as follows: 
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Figure 26: TCLOSE Direct-Access — Input and Output Processing 
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Figure 26. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
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CODE 
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1 This function is entered from TCLOSE initial- 
ization for both input and output data sets on 
direct-access devices. This function reads the data 
portion of the identifier (format 1 ) DSCB into 
the 0/E/EOV work area. 

2 The data set organization indicator in the identifier 
(format 1 ) DSCB is checked to verify that the data 
set is physical sequential (PS). The indicator is in 
the DSCFI LTY field of the DSCB. If the data set 
organization is not PS, an indicator is set in the 
work area (the DXCCW field) to indicate that no 
more processing should be performed, and an exit 
is taken to the TCLOSE final function. 

4 If the disposition of an input data set is LEAVE, 
the volume is positioned to the end of the data set 
by updating (1 ) the DCBFDAD field to point to the 
end-of-file mark following the data and (2) the DCB 
track balance (DCBTRBAL) to reflect the number 
of bytes remaining on the track. 
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CODE 
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6 If the disposition of an input data set is REREAD, 
the volume is positioned to the beginning of the 
data set by updating (1 ) the DCBFDAD field to 
point to the beginning of the first extent of the 
data set and (2) the DCBTRBAL field to reflect 
the capacity of a full track. 

7 The full disk address in the IOB field is updated. 

8 If an output data set is being temporarily closed, 
this function updates the track balance field 
(DSCTRBAL) and the last-track written field 
(DSCLSTAR) and then writes the updated DSCB 
back to the VTOC. 

9 Performs standard user label processing for output 
data sets on direct-access devices: builds the SUL 
interface, transfers control to the user's label 
routine, and when control is returned, writes the 
user trailer label to the user-label extent. 
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Figure 27: TCLOSE - Final Processing 
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Figure 27. (Continued) 



EXTENDED DESCRIPTION 
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CODE 
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1 Verifies that each DCB represented in the parameter 
list has been processed by each of the preceding 
TCLOSE functions and is now ready for final 
processing. 

2 Determines whether the user has requested a delayed 
ABEND (DSCBOFLGS=X'01'and JFCBMASK+4= 
X'02'); if so, issues an ABEND macro instruction to 
terminate processing. 
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CODE 
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3 Determines whether a trace is in effect; if so, trans- 
fers control to the optional Trace Termination 
function. 

4 Releases DCB and resident routine work areas. 

7 When all DCBs represented in the TCLOSE para- 
meter list have been processed, this function releases 
the Where-to-go table and exits to the user via an 
SVC 3. 
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Figure 28: EOV Contents 
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Figure 29: EOV— Overview of Processing 
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Figure 30: EOV Initialization 
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Figure 30. (Continued) 
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1 The FEOV executor or the SYNAD/EOV executor 
(both of which are described in OS SAM Logic) 
issues a GETMAIN macro instruction for the single 
DCB at end -of -volume. Although Open and Close 
can process many DCBs in parallel, EOV processes 
only one DCB at a time. 

3 The last two bytes of the DEBUTSA field in the 
DEB now point to the last record of the last block 
written on the volume. 

4 The JFCBVOLS field can contain as many as five 
volume serial numbers. Subsequent volume serial 
numbers are contained in JFCB extensions, which 
can contain as many as fifteen volume serial 
numbers each. 

The JFCB volume sequence field (JFCBVLSQ) is 
added to the DEB volume sequence field to de- 
termine the sequence number of the volume to be 
mounted next. 

The System Management Facility (SMF) provides 
information on the use of system resources. 
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5 The volume serial numbers of the three consecutive 
volumes to be processed, beginning with the volume 
currently at end-of-volume, are moved from the 
JFCB into the DXVOLSER field in the O/C/EOV 
work area. 
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Figure 31 : EOV Tape Input-Process Current Volume 
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Figure 31. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 Instructions for writing user routines are document- 
ed in OS Data Manaqement Services Guide. 

3 The parameter list passed to the user for trailer label 
processinq is described in OS Data Manaqement 
Services Guide. Before control is passed to the user, 
the lock bit in DCBOFLGS is set to 0; when the user 
returns control, the lock bit is reset fo 1 . The user 
indicates that additional user labels are to be read by 
specifying a return code of in register 15; a return 
code of 4 indicates that user label processing should 
be stopped. User labels are not processed if deferred 
label processing has been specified as a DCB exit list 
entry. 

4 The logical end of the data set for read-forward 
operations is the interblock gap following the trailer 
labels. The logical end of the data set for a read- 
backward operation is the interblock gap preceding 
header label 1 . 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


9 NSL volumes are rewound and unloaded. See the 
program organization figure for module IFG0552V 
for a detailed description of how the tape is position- 
ed. 

10 This function is entered from the following 
functions: 

Work Area Initialization (Figure 30) 

Standard Header Label (Figure 32) 

ABEND Interpretation and Recovery (Figure 42) 

1 1 If concatenated data sets have unlike attributes, the 
DCB is closed and then reopened with new attributes. 
Problem Determination enters this function if an 
error occurred in an EOV function and the user 
indicated that it should be ignored. 

12 EOV determines by process of elimination, that the 
data set resides on a unit record device. 
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Figure 32: EOV Tape Input Process New Volume 
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Figure 32. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 If the specified volume is not mounted and an empty 
unit is available, a mount message is issued for the 
specified volume. If an empty unit isn't available, 
the first unit with an unreserved volume is selected. 
The unreserved volume is unloaded and a message 
about its state is issued. A mount message is then 
issued for the specified volume. 

2 The volume serial number is verified for SL and AL 
tapes. If a tapemark is read, the tape may be a DOS 
NL tape with a leading tapemark. If a volume label 
is not read, or if a volume serial number cannot be 
verified, the volume is demounted and a mount 
message is issued for the appropriate volume. If no 
volume label is read for NL or NSL tapes, it is 
assumed that the correct volume is mounted. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


3 For NSL tapes, an exit is then taken to NSLEHDRI 
to verify the volume and position the tape to the 
data set. If a file-protect ring is required, the tape is 
unloaded, the ring is inserted, and standard volume 
labels are reverified. 

4 An NL tape is positioned either to the interblock gap 
preceding the first data record for a read-forward 
operation or to the interblock gap following the last 
data record for a read-backward operation. An AL or 
SL tape is positioned either to the interblock gap 
preceding header label 1 for a read-foreward operation 
or to the interblock gap preceding trailer label 1 for 

a read-backward operation. 
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Figure 33: EOV Tape Output-Process Current Volume 
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Figure 33. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


12 The tapemark is written following the data set on an 
NL tape or following the trailer label on SL tape. 
For an American National Standard or NL tape, two 
tapemarks are written 

13 Positioning and disposition options are processed in 
the following order: 

(a) LEAVE or REWIND (specified by the FEOV 
executor in byte of the register pointing to 
the current DCB). If REWIND was specified, 
the tape is rewound to the load point and the 
logical sequence count is decreased by the 
number of data sets on the volume minus 
one. The physical sequence count is set to one. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


13 (b) Open options specified in DEBOPATB field of 
DEB. If REREAD is specified, the tape is 
positioned to the first data record on an NL 
tape or to the HDR1 label for an SL tape. 

If KEEP, CATLG, or UNCATLG is specified, 
the volume is rewound and unloaded, the UCB 
sequence and volume serial number fields are 
set to zero to indicate that no volume is 
mounted, and a "keep" or "retain" message is 
sent to the system operator. This is the only 
positioning performed for NSL tapes. 

(c) User- requested disposition (specified in the 
last 2 bits of the TIOESTTA field in TIOT). 

(d) If none of the above is specified, the default is 
LEAVE. 
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Figure 34: EOV Tape Output-Verify New Volume 
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Figure 34. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 This function is entered from the following 
functions: 

Next Unit Selection (Figure 33) 
Destroy Label (EMODVOLI) (Figure 35) 
Create Label (Figure 35) 
Recovery From Invalid Tape (Figure 35) 


IFG0551X 


ETO10100 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


3 If control returned to this function with the 
density check bit on in the JFCB, the return is 
from the Destroy Label (EMODVOL1 ) function. 
The density in the JFCB is used. Density is not 
checked for NL tapes. 
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Figure 35: EOV Tape Output-New Volume Processing, continued 
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Figure 35. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


3 A return code of 4 means "stop user label process- 
ing." Additional user labels are read if the return 
code is 0. (Register 15 contains the return code.) 

9 This function receives control from the Label 
Reader and Density Check function if either a 
label error or density conflict exists. If the entry is 
for density conflict, control is immediately 
returned to the calling function. 

If the expiration date has passed or a volume with 
an American National Standard label was mounted, 
the operator's permission is needed to destroy the 
label. If permission is granted and an NL tape was 
requested, a tapemark is written over the volume 
label and control is returned to the Label Reader 
and Density Check function. If permission is 
granted and a standard or American National 
Standard label was requested, control is passed 
to the Label Create function. If the operator 
denies permission to destroy the label or the label 
indicates password protection, the serial number in 
the work area is replaced with "SCRTCH" and 
control is passed to the Recovery from Invalid 
Tape function 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


13 This function is entered from the following EOV 
functions shown in Figure 34: 

Verify Label Reader 

Label Reader and Density Check 

Rewrite Volume Label 

Write Header Label 1 

Write Header Label 2 

14 This step is entered if the new volume was rejected 
by the user's NSL output header label routine 
(NSLEHDRO); the mounting process is repeated 
for the specified volume. 
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Figure 36: EOV Direct-Access Input-Mount New Volume(s) 
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Figure 36. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


3 System Management Facility (SMF) measures 
the utilization of system resources. 

4 There are 2 modules for this function : one for the 
IBM 2321 Data Cell and another for other direct- 
access devices. 

In both cases, if the next vo'ume of a multivolume 
data set is not mounted, the UCB addresses in the 
TIOT DD entries are searched for a unit that is 
either free or has a demountable volume on it. In 
the latter case, a demount message is issued. A 
mount message is then issued for a new volume on 
that unit. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


7 After the next volume (if any) is mounted, process- 
ing continues with the current volume. The format 
1 DSCB is read into the O/C/EOV work area. If the 
data set is password-protected, an exit is taken to 
Open Security (Figure 11). 

8 A new DEB is built by EOV every time a new 
direct-access volume is mounted. 
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Figure 37: EOV Direct-Access Input-New Volume Processing 
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Figure 37. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


4 If an access method executor finds that an 

American National Standard COBOL record begins 
on one volume and continues on another (spanned 
record), it issues an FEOV macro instruction, 
which passes control to this function. If the record 
is not being updated, this function only frees the 
main storage obtained for the new DEB 

8 The user specifies further EOV processing with one 

9 of the following return codes: 

4 = Stop user label processing 
= Process additional user labels 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


10 Module IFG0552X performs this function for all 
I/O devices. 

12 The System Management Facility (SMF) provides 
information on how the system resources are 
being used. 
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Figure 38: EOV Direct- Access Output— Get More Space 
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Figure 38. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 If the data set contains fixed-length records, the 
end-of-file mark is written on both the current 
track and the next track. If the data set contains 
variable-length records, the end-of-file mark is 
written on the next track only. In either case, an 
end-of-file mark is written only if it fits in the 
extent allocated to this data set. 

4 The request is processed by space management 
routines, which place one of the following return 
codes in register RD: 

+1 = space was allocated on the current volume 
+4 = space was allocated on a new volume 
-1 = no space available on the current volume 
- 4 = no space available on a new volume 

The amount of space to be allocated is determined 
by the secondary allocation in the JFCB. 
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EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


6 The user may return one of the following codes. 

= transfer control back to DADSM Extend 

routine to try to get space a second time 

1 = return to QSAM processing 

2 = issue B37 ABEND 
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Figure 39: EOV Direct- Access Output— Processing with New Space 
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■^ ^ work area 

10 Read up to eight user labels into 
label buffer 



Return 



*e> 



Figure 39. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


1 If the disposition specified is LEAVE or REREAD, 
the pointer is not changed. 
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Figure 40: Problem Determination Contents 





Open/Close/EOV 




































Open and OPENJ 
Figure 1 




Close and TCLOSE 
Figure 15 




End-Of -Volume 
Figure 28 
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Interpretation 
and Recovery 
Figure 42 




Optional 
Module 
Trace 
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Figure 41 : Problem Determination — Overview of Processing 



ABEND Code Table 


Contains: 

• Internal ABEND code 

• System ABEND code 
and return code 

and Identifies data to 

be traced for each internal 

ABEND code 



O/C/EOV work area 



DMABCOND macro issued 
by any O/C/EOV function 



ABEND Interpretation 
and Recovery 



From Generalized 
Trace Facility I 

(GTF) ■ 



Initialize work area 
Issue ABEND message 
Perform ABEND trace 
Take DCB ABEND exit 
Release work area 



To Generalize 
Trace Facility 
(GTF) 



To O/C/EOV 

function 

that Issued 

DMABCOND 

macro 

instruction 



ABEND interpretation 
and recovery work area 



Trace output 
printed on 
user's listing 



o 
3 



!=r 
o 

Q- 
O 

o 

^3 



O 
3 



00 



O/C/EOV work area 



Current DCB 



Where-to-go table 



Open, Close, or EOV 
initialization 



From each module 
used to process ■ 
this DCB 

From Generalized™ 
Trace Facility ■ 
(GTF) 

From Open, 

Close, and 

EOV Termination 



Optional Module Trace 



Initialize trace buffer 



Trace O/C/EOV work area, 
current DCB, and 
Where-to-go table 
after every module used 



Release work area 




Resume normal 
DCB processing 
in Open, Close, 
►or EOV 
Initialization 

To Generalize 
Trace Facility 
(GTF) 

Return to 

module 

processing 

this DCB 

► Open, Close, 
or EOV 
termination 



Optional 
trace buffer 



Trace output 
printed on 
user's listing 



oo 
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Figure 42: ABEND Interpretation and Recovery 



Sample entry in ABEND code table 



DMABCOND 
macro instruction 



O/C/EOV work area 



Label, 
DSCB,or < 
message 
text 



JFCB 



EXCP 

control 
blocks: 
DEBJOB 

CCWs 

and 

volume 

serial 

numbers 



X 



TIOT 



UCB 



DCB 



DCBEXLST 



User's work area 



Exit list 

X'11' = j 

DCB ABEND 
exit routine 



.New volume 
•serial numbers 




Initialization 



1 Get main storage for ABEND 
interpretation and recovery work 
area 

2 Move system ABEND and return 
code, trace code, and message ID 
into work area 



Write to Programmer 



3 Build ABEND message in 
message buffer and issue it 



ABEND Trace I 



Move appropriate trace data to 
work area 

Issue GTRACE macro instruction 
to call GTF 



DCB ABEND Exit 



6 Set up option mask in parameter/^ 
list, overlaying trace code ^ J 

7 Continue processing based on 
user's return code: 

Return code = 

Issue ABEND macro instruction 

Return code = 4 or 8 

Return code = 12 

First pass through this function? 

— yes 

— no: Issue ABEND macro 
instruction 

Update JFCB with new volume 
serial numbers provided by user; 

ABEND prevented 



Release ABEND interpretation 
and recovery work area and 
user's work area if user requests 



Register 1 



ABEND interpretation and 
recovery work area (128 bytes) 



Message 
> buffer 




. Trace 
data 



Parameter 
list 



0/C/EOV work area 



Generalized 
s Trace 
Facility 
(GTF) 



> User's recovery 
routine 



►ABEND 

Last module 
of Open 
Close, or EOV 

User's 
' recovery 



'ABEND 



0P> : 



JFCBVOLS 



Q Internal 
ABEND 
code 

System 
ABEND 
and 
return 
code 

Q Trace 
code 

H Message 
ID 



Caller that issued 
DMABCOND macro 
instruction 



Figure 42. (Continued) 
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EXTENDED DESCRIPTION 



1 If an ABEND condition is detected during Open/ 
Close/EOV processing, the module that detected 
the ABEND condition issues a DMABCOND macro 
instruction to call ABEND Interpretation and 
Recovery. 

The DMABCOND macro instruction passes the 
internal ABEND code and Open/Close/EOV 
registers 2 and 4-14 to the Initialization function of 
ABEND Interpretation and Recovery. Registers 2 
and 4-8 are saved in the SVRB extended save area. 
The Initialization function uses the internal ABEND 
code in register to refer to a table that contains 
the system ABEND and return code, a trace code 
that indicates the type of data to be traced for 
each ABEND condition, and the ID of the ABEND 
message issued to the programmer. 

2 If the correct entry is found, the Initialization 
function issues a conditional GETMAIN for 128 
bytes from subpool 250 to be used as a work area. 
If the GETMAIN is successful, the work area is 
set to 0; the ABEND code issued to the user, the 
return code, the trace code, and the message I D are 
moved into it. 

3 If the user has provided a X '1 1 ' DCB ABEND exit 
routine and his recovery is successful, he still 
receives a message on his listing. This message 
refers to the ABEND that would have been issued if 
recovery had not been successful. 

4 The ABEND Trace function issues a GTRACE macro 
instruction to call the Generalized Trace Facility 
(GTF) , which traces data associated with a partic- 
ular ABEND. The PDCODE field (set by the 
Initialization function) determines which data is to 
be traced. GTRACE is issued only if there is an 
entry in the PDCODE field. 

All data that has been traced for an Open/Close/ 
EOV ABEND condition is given a format identifi- 
cation of X'EFFF'. The format identification 
indicates to the IMDPRDMP service aid which 
of its appendages will format the data. The 
IMDUSRFF appendage formats data traced by 
GTF for Open/Close/EOV. 



MODULE 
NAME 



IFG0190P 

(from Open) 

IFG0200P 

(from 

Close) 

IFG0230P 

(from 

TCLOSE) 

IFG0550P 

(from EOV) 

IFG0196M 

(from 

RDJFCB) 



IFG0199D 



CODE 
LABEL 



PDF03800 



EXTENDED DESCRIPTION 



7 A return code of 4 means ignore the ABEND 
condition", a return code of 8 means " delay the 
issuing of the ABEND macro." 

If an invalid code is returned by the user, or if he 
requests an immediate ABEND, then Open/Close/ 
EOV registers are restored and the ABEND macro 
instruction is issued. 

If the user chooses to ignore the error, the open and 
busy bits of the DCB are turned off (byte 48, bits 
2 and 3), the ABEND interpretation and recovery 
work area is freed, registers are restored, and the I D 
of the last module of Open, Close, or End-of- 
Volume is moved into that DCB's WTG Table entry. 
Then ABEND interpretation and recovery returns 
to the resident routine. 

If the user requests a delayed ABEND, the ABEND 
code and return code are saved in the O/C/EOV 
work area at DXABCODE, JFCBMASK+4 bit 6 is 
set to 1 , the busy bit is set to 0, and the ABEND 
interpretation and recovery work area is freed. 
The I D of the last load module of Open or Close 
is moved into the WTG Table entry and control is 
returned to the resident routine. (The combination 
of bit 6 in JFCBMASK+4 being on and the busy bit 
being off indicates that a delayed ABEND has been 
requested by the user.) 

Instructions for recovery are contained in OS 
Data Management Services Guide . 

8 The current volume serial number is the first to be 
changed. Succeeding volume serial numbers will 
be changed, depending on the number of new 
volume serial numbers supplied by the user. 

The JFCB extension blocks are updated and written 
back to the job queue. If an I/O error occurs during 
this process, a message is issued and the user's exit 
routine will again be given control, and message 
will no longer be a valid option. If the control 
blocks are updated successfully, the ABEND 
interpretation and recovery work area is freed, 
Open/Close/EOV registers are restored, 
JFCBMASK+4 bit 6 is set to 1 , and control is 
returned to the module that issued the 
DMABCOND macro instruction 



MODULE 
NAME 



IFG0199E 



IFG0199E 



IFG0199E 



IFG0199E 



IFG0199E 



CODE 
LABEL 



PDF04040 



PDF04440 



PDF04420 



PDF04100 



PDF04160 
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Figure 43: Optional Module Trace 



Register 
RWTG 



Open Initialization 

Close Initialization 

EOV Initialization 




Initialization 



Is generalized trace facility 
active or starting ? 

Load optional trace; 
successful load? 



Get main storage for a work 
area 



Optional Trace 



Move current DCB to work 
area 

Issue GTRACE macro instruction 

Move O/C/EOV work area into 
buffer (%at a time); 

Issue GTRACE macro instruction 

Move Where-to-go table into 
trace buffer; 

Issue GTRACE macro instruction 
Return to caller 

Termination 
Free trace buffer 
Release optional trace routine 




Resident routine 
work area 




Generalized 
Trace 
Facility 
(GTF) 



GTF 



GTF 

Module 
that 
called 
trace 



Module in 
first WTG 
table entry 



-8 
-4 
-0 



ECB 

list 



Optional trace 

work area (192 bytes) 



=> 



Address of loaded 
trace routine 



Figure 43. (Continued) 



EXTENDED DESCRIPTION 


MODULE 
NAME 


CODE 
LABEL 


2 Before a LOAD macro instruction is issued to bring 
the Optional Module Trace into main storage, a 
STAE macro instruction is issued to intercept any 
ABEND conditions in the load routine. If an 
ABEND condition occurs while the trace is being 
loaded, the Optional Module Trace will not be 
initialized. 
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Legend for Method of Operation Figures 



^ 



Shows where to start reading a figure. 



1^ Flow of control within Open/Close/End-of-Volume 



Exit to and entrance from OS or user-written routine not 
documented in this manual. 



\/JJJJ/JSJJJJJJJ*JJJJ7-7-f£ 



1^ Data flow, usually from a device to main storage, or vice versa. 



Points to bits or fields set or altered in main storage (always 
output). 



Indicates address chaining. 



EjJ Key to a brief description of data field. 

mmBmm ^ mm ^ m ^ _ ^ m _ _ mm ^^ Comes from a data field used as input to a processing step that 

jy-j — •«■» «— — — «-» — — • «■■ ^^> tests it to determine subsequent processing. 

o 
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^ fi£\ (ffl (£) On-page connectors — always used with one of the above arrow 

types. 
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O aaaH ^^ / Off-page connectors from one figure to another. 
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SECTION 3: PROGRAM ORGANIZATION 
Introduction to This Section 

In this chapter, Open/Close/EOV is divided into modules, that is, into IK units of code. The 
emphasis in this chapter is on the flow of control between modules. 

The modules are described in module-flow diagrams, which combine module-description infor- 
mation with flow-of-control information. The functions or parts of functions that are in the 
modules are indicated at the top of each module description. The "Method of Operation" 
chapter discusses the functional organization of Open/Close/EOV. 

How to use these diagrams and how the diagrams in this chapter relate to the rest of the book 
are discussed under "How to Use this Book" in the Preface. 

This chapter is intended for people who need to know about one or more modules in Open/Close/ 
EOV. 
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( Entry "*) 



OPEN macro instruction 

SVC 19, or 

XCTL from Close after a concatenated 

data set with unlike attributes was closed 



IGC0001I 



Open Initial Function 



Searches TIOT DD entries for one with data set name 

indicated in DCB. 
Gets main storage for a O/C/EOV work area for each 

DCB in parameter list that can be processed, and zeros it. 
Constructs in each O/C/EOV work area control blocks 

needed to read JFCB (DEB, ECB, DCB, IOB, and 

channel programs). 
Reads JFCB from job scheduler's SYS1 .SYSJOBQE 

data set. 
Gets main storage for Where-to-go table. 



Input: Pointer in register 1 to Open DCB parameter list or 

to a pseudo-parameter list for one DCB in first 
word of SVRB extended register save area (if entered 
via an XCTL from Close) 

Output: • O/C/EOV work area for reading JFCB for each DCB 
in parameter list 
• Where-to-go table 



External 
References: 



CVTJOB, IECPCNVT, IEFQCNVT, IECOSCRI 



to calling program by means of EXIT macro 
if DCBs in parameter list neither need to 
be nor can be opened 



Q Entry 



"""N • OPEN Type=J macro instruction or 



> SVC 22 



IGC0002B 

Open Initial Function (TYPE=J) 



Searches TIOT DD entries for one with data set name 

indicated in DCB. 
Gets main storage for O/C/EOVwork area for each DCB in 

parameter list that can be opened and zeros it. 
Constructs in each work area control blocks needed to 

read JFCB (DEB, ECB, DCB, IOB, and channel programs). 
Locates X '07' entry in DCB exit list and uses address in 

entry to move JFCB supplied by user, normally obtained 

by a RDJFCB macro, into JFCB block in work area. 

Posts ECB so that next module does not have to know 

whether it is called by Open or Open Type=J. 
Gets main storage for Where-to-go (WTG) table. 



Input: • Pointer in register 1 to Open DCB parameter list 

• Pointer in register 5 to Open SVCRB, set by SVC 
interruption handler 

Output: • Work area containing JFCB for each DCB in 
parameter list 

• WTG table 



External 

References: CVTJOB 



Exit 



to calling program by means of EXIT macro 
if DCBs in parameter list neither need to 
be nor can be opened 



IFG0193A 

Open Initial Volume Serial Function 



Initializes entries in WTG table. 

Waits for JFCB to be read in. 

Determines initial volume serial number to be used by data 
set and places it in DXVOLMT1 . JFCB extensions may 
have to be read to obtain specified volume serial number. 

Indicates in WTG table the Open modules needed to process 
DCBs in parameter list. 



C Exit ) 



IFG0194E Figure 51 
(if data set is on 
direct-access device) 

IFG0193B Figure 45 
(if data set is on 
magnetic tape device) 

IFG0196J Figure 56 
(if data set is not on direct- 
access or magnetic tape device) 



Input: • JFCB in each O/C/EOV work area 

• Pointer to WTG table in register RWTG 

• Pointer to DCB parameter list in register RPAR 

• Pointer to each O/C/EOV work area in each 
DCBDEBAD 

• Pointer to IFG019RA in register RC 

• Branch table offset in register RET 

Output: • Volume serial number in DXVOLMT1 of first 
volume to be used 

• WTG table base and entries initialized for use by 
IFG019RA (each WTG entry points to next module 
for corresponding DCB) 

• Register RES = address of IFG019RA 
Register RWTG = address of start of XCTL/WTG 
table 

Register RTIOT = address of TIOT DD entry for 

data set 
Register RUCB = address of first UCB pointed to 

in TIOT DD entry 
Register RET = branch table entry offset of 



External 
References: 



IECPCNVT, TEFQCNVT, IECOSCRI 



Figure 44 (Chart 1 of 1). Open and OPENJ Initialization Processing 
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( Entry ) 



IFG0193A Figure 44 



IFG0193B 

Open Tape-Initial Common Function 



Verifies that file sequence number has been specified; if not 

specified, sets default value to 1 . 
Clears SMF counters and flags for SMF requests. 
Sets RER bit for NL tapes. 
Determines density and recording technique. 
Sets information in DEB in O/C/EOV work area. 
Verifies, for ASCII requests, that ASCII was specified at 

system generation and that the volume is not a 7-track 

tape. 



if specific volume 
requested 



initial entry 
(if nonspecific or 
volume reference 
requested) 



Input: 
Output: 



Error 
Exit: 



Standard 

• Density and recording technique are set in work an 
DEB 

• Message IEC1131 A or IEC114E D may be issued 

• IFG0190Pwithan internal ABEND code of 2, 17, 
18, or 23 



Q Entry ) IFG0194I Figure 46 
■ {second entry) 



IFG0194D 



Open Tape— Mount Verification Function 



Initial entry — 

Determines pseudo-volume serial number in JFCB. 

If pseudo-volume serial number points to JFCB for data set 

being opened, sets conditions to indicate a nonspecific 

request. 
If pseudo-volume serial number points to another JFCB, reads 

JFCB along with any extensions necessary to get last volume 

serial number from the JFCB. 
Moves real volume serial number into UCB and O/C/EOV 

work area for data set being opened. 
If JFCB in reference contains a pseudo-volume serial number, 

sets conditions for processing a nonspecific request. (This 

module must be entered a second time to update the JFCB.) 

Second entry — 

Reads JFCB in reference. 

Places in JFCB the verified volume serial number 

for data set being opened. 
Writes JFCB back 



after initial entry 



Input: 
Output: 

Error 
Exit: 



Volume serial number in reference is placed in JFCB 
and UCB for data set being opened. 

IFG0190P with an internal ABEND code of 7 or 8 



after second entry 



IFG0195B Figure 48 
(resume SL/AL processing) 

IFG0195C Figure 49 
(resume NL/BLP processing) 



IFG0196J Figure 56 
(resume NSL output processing) 



( Entry ) IFG0194J Figure 47 



IFG0194F 

Open Tape— Mount Verification Function 



Ensures mounting of tape volumes based on disposition of 
mount bit (high-order bit, offset 35 in tape UCB) and 
contents of volume serial field in tape UCB (offset 28). 
If mount bit is on, a volume is mounted or being mounted 
and awaiting label verification. Volume serial number is 
zeroed in UCB. If mount bit is off, no mount message has 
been issued. 

Checks whether correct volume is mounted (first volume 
serial number in UCB). If correct volume is mounted, its 
TIOT UCB entry is exchanged with first TIOT UCB entry 
and label is presumed to be previously verified. If correct 
volume is not mounted, a mount message is set up for 
first available unit and a Demount or Retain message is 
issued if tape drive contained a volume. 



Input: 
Output: 



Error 
Exit: 



Standard 

UCB address has been set in first UCB entry in TIOT 

entry 

Messages IEC104E D and IEC106E R are issued if 

a wrong volume is mounted 

If scheduler has issued any messages, a parameter list 

containing I Ds of messages to be deleted is constructed. 

Message IEC101 A M is constructed in O/C/EOV work 

area if required 

A mounted volume is passed to the label verification 

module for each tape DCB in Open parameter list 



IFG0190P with internal ABEND code of 1 



( Exit ) IFG0194G Figure 46 

(if requested volume not mounted) 
IFG0194H Figure 46 
(if requested volume is mounted) 



Figure 45 (Chart 1 of 6). Open Tape Processing 
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( Entry "") 



IFG0194F 
IFG0194H 
IFG0193C 
IFG0196Q 
IFG0196T 
IFG0196U 
IFG0190R 



Figure 45 
Figure 46 
Figure 47 
Figure 50 
Figure 50 
Figure 50 
Figure 89 



IFG0194G 

Open Tape— Volume Mounting Function 



Completes construction of tape mounting messages by 
inserting label type, density, volume serial number, 
and job and step names. 

Writes- messages that do not require data set name. 

Writes a message to TSO terminals to inform user that 
operator action is required for his data set. 

Rewinds or unloads volumes as required. 

Waits and checks reply for file protection messages 



if a 'U' reply to a file 
protect message is 
returned by operator 



Input: 



Standard 



Output: « Messages I EC114E D and I EC1 01 A Mare issued as 
required 
• Volume is positioned for volume label verification 



Error 
Exits: 



IFG0190P with internal ABEND code of 2 



( Ex * ) 



IFG0190R Figure 89 
(if message requiring DSNAME needed) 



Entry 



~) IFG0194F Figure 45 



IFG0194H 

Open Tape—Volume Verification Function 



Checks, on initial entry, whether label verification is 

required (UCB volume serial number = JFCB volume 

serial number). If two volume serial numbers equal, 

verification is bypassed. 
Bypasses, if BLP is specified, verification; otherwise, an 

attempt is made ot read a volume label. 
Generates , for NL or BLP nonspecific requests, a Lxxxyy 

number for volume serial number. 
Checks file protection for OUTPUT, OUTIN, or INOUT 

data set. 
Does not process tape volume if volume is an ASCII tape 

and volume accessibility byte (VOLSEC) is not blank. 
Demounts, if request was for a nonspecific volume, and 

requests a scratch volume. 



Exit 



_J IFG0194J Figure 47 

if label conflict has occurred 



IFG0194I 

Open Tape— Final Common Function 



Compares, if data set is being opened for output of 

dual-density tape drives, density of mounted volume 

with density specified. 
Verifies that tape does not have another data set open. 
Writes, if scheduler or ABEND is in control for SYSOUT 

tapes with another data set open, trailer labels to close 

data set so that Open can continue. 
American National Standard labels are translated to ASCII 

before being written. 



Input: 
Output: 



Standard 

Messages IEC114E D, IEC109A F,and IEC110D F 
issued as required 



Input: Standard 

Output: Mount bit in UCB has been set for NSL verification 



Error 
Exits: 



IFG0190Pwith internal ABEND code of 2, 3, 5, or 6 



( Exit *) IFG0194D Figure 45 

( if second pass for unresolved volume 

reference required) 
IFG0194J Figure 47 

(if dual-density conflict found) 
IFG0195B Figure 48 

(if normal processing for SL or AL to 

continue) 
IFG0195C Figure 49 

(if normal processing for NL or BLP to 

continue) 



IFG0195D Figure 49 

(if normal processing for NSL input to 

continue) 
IFG0196J Figure 56 

(if normal processing for NSL output or 

NL SYSIN/SYSOUT to continue) 
IFG0196N Figure 50 

(if SL or AL remount has occurred) 
IFG0196O Figure 49 

(if NSL output has occurred) 



Figure 46 (Chart 2 of 6). Open Tape Processing 
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( E nt ry ^) IFG0194H Figure 46 

■ IFG0194I Figure 46 

IGG0190A (alias entry point for return 
from user written OMODVOL1 ) 



OFG0194J (IGG0190A 

Open Tape— Label Editor Interface Function 



Synchronizes all DCBs. 

Sets up all conditions to return to parallel processing mode 
in case user has provided his own label editor routine. 

Return entry - 



This section is entered only when user has provided his own 

label editor routine (OMODVOL1 ). 
Resets conditions to return to resident routine serial 

processing. 
Exits to reprocess the DCBs. 



if user has not 
provided his own 
OMODVOL1 routine 



Input: 
Output: 



Standard 

OS or user-written label editor may be entered 



OMODVOL1 

(if user has provided his own label editor 

routine) 
IFG0194F Figure 45 

(To reprocess the DCB if user has 

provided his own OMODVOL1 routine. 

This exit is taken after return entry only.) 



( Entry ) 



IFG0193D 
IFG0193E 



Figure 47 
Figure 47 



IFG0193C (OMODVOL1) 

Open Tape— Label Editor Function 



Restores resident routine sequential processing. 

Returns to normal processing on density conflict. 

Exits to function required for label conflict with nonspecific 

volume request. 
Demounts volume and exits for remount if label conflict on 

specific volume request or if create or destroy function 

requires remount. 



if standard 
label to be 
created 



if standard 
label to be 
destroyea 



Input: 



Output: 



• Standard 

• Conflict bits in JFCBMASK+5 must be set 



A mount message is constructed in work area if remount 
is required 



( Exit ) IFG0194G Figure 46 

(to issue mount message and reprocess 
DCB) 
IFG0194I Figure 46 
(if immediate exit on density conflict is 
needed to continue normal processing) 

( Entry ) IFG0190R Figure 89 



Open Tape— Destroy Label Function 



Destroys standard labels for data sets requesting NSL or NL. 
Verifies that IBM standard label can be destroyed so 

American National Standard label may be created or 

vice versa. 
Checks for security-protected volume. 
Checks expiration date. 

Gets operator's permission to destroy if date not passed. 
Translates ASCII tapes before they are checked. 
Get operators decision on whether to destroy American 

National Standard label or mount another volume 



if standard 
label to be 
created 



Input: 
Output: 



• Tapemark written on tape volume 

• Messages IEC107D, IEC112I , IEC134D A, and 
IEC134D A written as required 



IFG0193C Figure 47 

(if remount needed) 
IFG0194F Figure 47 

(to reprocess DCB) 
IFG0190R Figure 89 

(insert DSNAME and issue 

message) 



IFG0193E 

Open Tape— Create Label Function 



Gets permission from operator to create label and necessary 

label information. 
Writes IBM standard or American National Standard label and 

tapemark. 
Translates American National Standard labels before they are 

written 



Input: 
Output: 



Standard 

IBM Standard or American National Standard label 

written on tape 

Messages IEC112I and IEC704A L written when 

required 



( Exit ) IFG0193C Figure 47 
(remount required) 
IFG0194F Figure 45 
(reprocess DCB) 



Figure 47 (Chart 3 of 6). Open Tape Processing 



Section 3: Program Organization 99 



( Entry ) IFG0194I Figure 46 



IFG0195B 

Open Tape-SL Position Function 

Open Tape-SL INPUT/MOD Header Label 1 Function 



Sets DCB block count to 0. 

Tests UCB file sequence number. If or greater than number 
of first file being opened, header label is read and file 
sequence, from label, is placed in UCB. Positioning is 
determined by comparing UCB and JFCB file sequence 
numbers. 

Forward or backward spaces tape as necessary to position 
to requested file. 

Positions tape to header label 1 for normal input operations. 

Positions tape to trailer label 1 for RDBACK or DISP=MOD 
processing. 



to continue 

INPUT/MOD 

processing 



Input: 
Output: 



Error 
Exits: 



c 



Exit ) 



IFG0196J Figure 56 
(if SL or AL output processing) 



( Entry ) IFG0195K Figure 48 



IFG0195H 

Open Tape-SL INPUT/MOD Header Label 1 Function 

Open Tape-SL INPUT/MOD Header Label 2 Function 



Reads file label 1. 

Verifies that DSNAME from label is same as that specified in 

JFCB. 
If opening for RDBACK or DISP=MOD, moves block count 

from label to DCB. 
If opening for any type of output, checks whether expiration 

date has passed. If not, operator's decision whether tape 

may be used is requested. 
Does not use tape volume if ASCII tape security byte is not 

blank and security is not indicated. 



to continue 

INPUT/MOD 

processing 



Input: 
Output: 



Error 
Exits: 



( En fy ) IFG0190R Figure 89 

(if message requires data protection) 



return from issuing 
f message 



IFG0195K 

Open Tape-SL INPUT/MOD Header Label 2 Function 



Reads file label 1. 

Verifies that DSNAME from label is same as that specified in 

JFCB. 
If opening for RDBACK or DISP=MOD, moves block count 

from label to DCB. 
If opening for any type of output, checks expiration date to 

make sure it has not passed. If not, operator is asked 

whether tape may be used. 
Tests security byte in label to determine whether passworkd 

will be obtained. 
Does not use tape volume if ASCII tape security byte is not 

blank and security in not indicated. 



process 

user 

labels 



Input: 
Output: 



Error 
Exits: 



D 



IFG0195H Figure 48 

(if reply to date protection message 

incorrect) 
IFG0195T Figure 54 

(if password to be read) 
IFG0196J Figure 56 

(if all tape input processing completed) 



IFG0195N 

Open Tape Input— User Label Function 



Checks DCB exit list for active input user label routine. 
Gets storage for user label work area if user labels are to be 

processed. 
Reads user labels into work area and issues SYNCH macro to 

go to user label routine. 
Tests, on return from user label routine, return code to see 

whether more labels are to be processed. Continues until 

all user labels have been processed. 



Standard 

Tape is positioned to requested file 

IFG0190Pwith internal ABEND code 9, 10, or 11 



Standard 

• Security bit has been set in JFCB so that if MOD data 
set is extended to another volume, EOV will set 
security indicator in labels 

• An indicator has been set so password will be 
obtained if necessary 

• Messages IEC107D E and IEC114E Dare issued as 
required 



IFG0190Pwith internal ABEND code of 11,12, 
13, 14, or 20 



Standard 

Security bit has been set in JFCB so that if a MOD data 

set is extended to another volume, EOV will set security 

indicator in labels 

Indicator has been set so password will be obtained if 

necessary 

Messages IEC107D E and IEC114E Dare issued as 

required 



IFG0190P with internal ABEND code of 11, 12, 13, 
14, or 20 



Input: Standard 

Output: Tape is positioned to proper point to process data 

set 

Error 

Exits: IFG0190P with internal ABEND code of 9 



IFG0195T Figure 54 

(if password to be read) 
IFG0196J Figure 56 

(if all tape input processing completed) 



Figure 48 (Chart 4 of 6). Open Tape Processing 



1 00 Open/Close/EO V Logic 



C Entr V ) IFG0194D Figure 45 
I IFG0194I Figure 46 



IFG0195C 

Open Tape— No Label Positioning Function 



Sets DCB block count to 0. 

Verifies that UCB file sequence number is not 0; if it is, 

sets it to 1. 
Positions tape to specified data set by comparing sequence 

number of specified data set in JFCB against current 

sequence numberln UCB. 
Moves tape forward or backward as needed to reach specified 

data set. 



Input: 

Output: 

Error 
Exits: 



Standard 

Tape is positioned to requested data set 

IFG0190P with internal ABEND code of 9 or 10 



Exit 



3 IFG0196J Figure 56 

(continue normal processing) 



( Entry ~) 



IFG0194I Figure 46 
IFG0190R Figure 89 
IGG0190B 

(alias entry point from NSLOHDRI on return 

tolFG0195D) 



IFG0195D (IGG01950B) 

Open Tape-NSL Input Interface Function 



Initial entry — 

Synchronizes all NSL DCBs. 

Sets up conditions for parallel processing before exiting to 
user's NSL routine. 

Second entry — return from user's NSL routine 

Resets conditions to process serially via resident routine. 

Checks for rejected volumes by testing mount bit in UCB 

(bit 0, offset 35). If mount bit is on, volume is being 

rejected. Remounts rejected volume. 
Verifies that mounted volume does not have standard label. 



Input: 
Output: 



Error 
Exits: 



Standard 

• Volume has been verified and positioned by NSL 
routine 

• Message IEC101A M issued when required 



IFG0190P with internal ABEND code of 2 or 3 



Exit 



C Entry ) 



IFG0190R Figure 89 

(if message requires DSNAME) 
NSLOHDRI 

(to user's NSL routine) 
IFG0196J Figure 56 

(to continue normal processing) 

IFG0194I Figure 46 
IFG0196M Figure 56 
IGG0190R 
(alias entry point from NSLOHDRO on 
return to IF G0 1960) 



IFG0196O0GG0190R) 

Open Tape-NSL Output Interface Function 



Initial entry — 

Synchronizes all DCBs. 

Sets up conditions to process DCBs in parallel before 
exiting to user's NSL routine. 

Second entry — return from user's NSL routine 
Resets conditions to process serially via resident routine. 
Rejects tape volumes and remounts if mount bit is on in 
UCB (bit 0, offset 35). 



Input: Standard 

Output: • On exit to NSL routine, full parameter list is 
passed for parallel processing 
• On final exit from module, tapes have been verified 
and positioned by NSL routine 



Exit 



NSLOHDRO 

(to user's NSL routine) 
IFG0194G Figure 46 

(if remount rejected volume) 
IFG0196V Figure 58 

(if normal processing to continue) 



Figure 49 (Chart 5 of 6). Open Tape Processing 
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Entry ) IFG0195T Figure 54 
T IFG0196M Figure 56 



IFG0196N 

Open Tape— SL Output Function 



Initial entry — 

Reads header label and tests for security protection. 

Compares, if data set is protected, DSNAME from label 

with DSNAME in JFCB. If they are not equal, tape is 

rejected. 
Terminates processing for ASCII tape with security byte not 

blank and security not indicated. 
Exits to check expiration date. 

Second entry — return from security processing 

If first data set on tape is being processed, exits to rewrite 

volume label. 
If not first data set, positions tape to proper data set and 

exits to write header labels. 



to write 
header labels 



if date check or 
rewrite volume 
label required 



Input: 
Output: 



Error 
Exits: 



Standard 

• Tape is positioned to proper point to process data 
set 

• An indicator is set to cause reading of password 

• Message IEC1 121 and IEC1 14E D may be issued as 
required 



IFG0190Pwith internal ABEND code of 9, 11,12, 
or 20 



IFG0196Q 

Open Tape— SL Date Protection Function 

Open Tape— SL Rewrite Volume Label Function 



Checks whether expiration date in label has passed; if not, 
gets operator's decision to use tape or remount. 



to write 
header labels 



Input: 
Output: 



Standard 

Message IEC107D E may be issued as required 



Exit 



IFG0195T Figure 54 

(if password to be read) 
IFG0194G Figure 46 

(if remount required) 
IFG0190R Figure 89 

(if date protection message required) 



IFG0196T 

Open Tape— SL Rewrite Volume Label Function 

Open Tape— SL Header Label Writing Function 



Writes header label 1 after construction from information 

obtained from JFCB and UCB. 
Writes header label 2 after construction from information 

obtained from JFCB and TIOT. 
Attempts, if an I/O error occurs during write of labels, to 

recover from error when possible rather than issuing an 

ABEND. 



to process 
output user 
labels 



Input: 
Output: 



Error 
Exits: 



• Standard 

• Significant 17 characters of JFCB DSNAME 

• Tape is positioned for user label processing or to 
write first data record 

• Message IEC1 121 may be isssued as required 



IFG0190Pwith internal ABEND code of 15 or 16 



Exit 



IFG0196V Figure 58 
(if exiting to executors) 

IFG0194G Figure 46 
(if remount required) 



IFG0196U 

Open Tape— SL Output User Label Function 



Checks DCB exit list for active output user label routine. 

Gets storage for user label work area if user labels are to be processed. 

Issues SYNCH to go to user label routine for construction of labels. 

Writes, on return from user label routine, label. 

Tests return code to see whether any more labels are to be processed. 

Continues until all user labels have been processed. 



Input: 
Output: 



Error 
Exits: 



Standard 

• Tape is positioned to write first data record 

• Message IEC1121 may be issued as required 

IFG0190P with internal ABEND code of 16 



IFG0196V Figure 58 
(if exiting to executors) 

IFG0194G Figure 46 
(if remount required) 



Figure 50 (Chart 6 of 6). Open Tape Processing 



1 02 Open/Close/EO V Logic 



C Entr v ) 



IFG0193A Figure 44 
IFG0195G Figure 52 



IFG0194E 

Open Direct-Access— Unit Selection Function 

Open Direct-Access- Read DSCB Function 



Scans UCBs pointed to by current TIOT DD entry to find 
one with volume whose serial number is in DXVOLMT1 ; 
if found, UCB Open DCB data management counter 
increased by 1 and work area DEB set up for use on 
that unit. 



if volume 
found during 
UCB scan 



I 



Input: 



Output: 



External 
References: 



Volume serial number of volume to use in 
DXVOLMT1 

Increased UCB Open DCB data management 

counter 

Work area DEB UCB address and extent set up for 

use on selected device 



IECZDTAB 



( Ex* ) 



IFG0194A Figure 53 

(if volume must be mounted and verified) 



Entry 

m 



~J IFG0195G 
IFG0195E 



Figure 52 
Figure 52 



IFG0195A 
Open Direct- 
Open Direct 



-Read DSCB Function 
DSCB to JFCB Merge Function 



Updates JFCB DSCB TTR if VTOC DSCB search was just 

done for first volume. 
Reads in any index (format 2) and extension (format 3) 

DSCBs that describe ISAM information or additional 

extents. 
Saves repositioning information for data sets with DISP= 

MOD. If a restart occurs, information is placed back into 

the DSCB. 



to continue DSCB 
to JFCB merge 



Input: 
Output: 



Standard 



Index (format 2) and extension (format 3) DSCBs 
chained from DSCCORE 



( Exit ) IFG0196J Figure 56 

(if DSCB found) 
IFG0195E Figure 52 

(if VTOC DSCB search fafled) 
IFG0195G Figure 46 

(if unexpired data set) 

( Entry ) IFG0554L (IFG0195F) Figure 52 



IFG0195J 

Open Direct-Access— DSCB to JFCB Merge Function 



Determines whether input user labels should be processed. 
Checks whether more volumes must be simultaneously 

mounted for this data set. 
Restores first two CCWs needed for ISAM or BDAM 

parallel mounting. 



if BPAM 
concatenated 



Input: 
Output: 



Standard 
Standard 



( Exit ) 



IFG0195O Figure 52 

(if ISAM or BDAM parallel mount required) 
IFG0195T Figure 54 

(if data set is password-protected) 



( Entry ) IFG0194C Figure 53 



IFG0195M 

Open Direct-Access— BPAM Concatenation Function 



Gets main storage for JFCB and DSCB work area. 

Reads concatenated JFCB into work area. 

Locates unit on which volume resides from TIOT DD entry. 

Reads identifier (format 1 ) DSCB of concatenated BPAM 

data set into work area. 
Gets main storage for another work area and reads the DSCB 

if extension (format 3) DSCB present. 



Input: 

Output: 

External 
References: 

Error 
Exits: 



Concatenated JFCBs and TIOT DD entries 

Format 1 and 3 DSCBs chained to last DSCB that 
was chained to main work area for first data set 

IECPCNVT 

IFG0190P with internal ABEND code of 40 



C Exit ) IFG0194A Figure 53 

(if unmounted volume is to be mounted) 
IFG0195T Figure 54 

(if any data set is password-protected) 
IFG0196J Figure 56 

(to continue normal processing) 



Figure 51 (Chart 1 of 3). Open Direct-Access Processing 
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( Entry ) IFG0195J Figure 51 
T IFG0194C Figure 53 



IFG0195O 

Open Direct-Access— Parallel Mounting Function 



Mounts, for BDAM, any unmounted volumes except for the 
first one, which has already been mounted. Volume serial 
numbers and UCB numbers are taken only from the first 
TIOT DD entry for the ddname being opened. 

Mounts, for ISAM, any unmounted volume except for the 
first one. Volume serial numbers from all concatenated 
DD entries are used. First volume serial number from 
concatenated DD entries is mounted by this module. An 
additional JFCB is read for each concatenation. 

May read, for BDAM and ISAM, JFCB extensions, if more 
than five volume serial numbers are specified In one DD 
entry. 



Input: • Register RTIOT - pointer to TIOT DD entry 

(Must never point to a concatenated entry because 
RTIOT will be restored later to first TIOT DD 
entry for data set ) 

• Work area — 

DSCCORE — pointer to any chained index (format 2) 
and/or extension (format 3) DSCB already read 
by first volume basic mounting function 

Output: • All required volumes mounted, verified, and their 

UCB Open DCB data management counters increased 
by 1 to lock them on their units 

• 104-byte additional work areas, chained to last DSCB, 
to be used to read identifier (format 1 ) DSCBs of 
additional volumes 



IFG0194A Figure 53 

(to mount an unmounted volume) 




Reads identifier (format 1 ) and extension (3) DSCBs for volumes 
that were mounted in previous parallel mount module. 

Obtains 104-byte buffer for identifier (format 1 ) DSCBs 
supplied by previous module for each volume mounted. 

Format 3 DSCBs are read into additional 144-byte buffers, 
which will be chained from identifier (format 1 ) DSCB to 
which they belong. 

Checks volume sequence numbers in identifier (format 1 ) 
DSCBs for ascending order to ensure that user is supplying 
volume serial number list in same order they were originally 
allocated. 

Tests, for ISAM, first volume for index (format 2) DSCB to 
ensure that proper allocation was made. Main UCB address 
and bin number is placed in each identifier (format 1 ) 
DSCB. UCB address is checked for duplicates before 
another identifier (format 1 ) DSCB is read from previous 
volume. 

Stores, for BDAM, total number of extents on all volumes 
(except the first) in DCB. 



External 
References: 



Input: 



IECPCNVT, IECZDTAB 



Chained identifier (format 1 ) DSCB work areas 



Output: • Identifier (format 1 ) DSCBs read into identifier 

(format 1 ) DSCB work ares 
• Any extension (format 3) DSCBs chained from 

identifier (format 1 ) DSCBs to which they belong 
External 
References: IECPCNVT 



C 

Entry ) IFG0194C 



IFG0195A 



Figure 53 
Figure 51 



IFG0196J Figure 56 

(to continue normal processing) 
IFG0195T Figure 54 

(if password required) 



IFG0195E 

Open Direct-Access— DISP=MOD Error Recovery Function 



Searches all volumes from first to last, when identifier 
(format 1 ) DSCB is not found on last volume, for 
volume that had MOD data set opened for output. 



( Exit ) IFG0194A Figure 53 

(if unmounted volume to be mounted) 
IFG0195A Figure 51 

(if DSCB must be merged) 

( Entry ) IFG0195A Figure 51 

T (if DSCB no on first volume) 



Input: 



Output: 



IFG0195G 

Open Direct-Access— Expiration Data Error Function 

Open Direct-Access-213 ABEND Exit Function 



Requests permission from operator to write on a data 
set whose expiration data has not yet passed. 

Searches, when data set not found, for X'09' DCB exit 
list entry. 



Input: 



Output: 

Error 
Exits: 



• List of volume serial numbers for data set, either 
already in main storage in JFCB or to be read in 
from JFCB extensions 

• DXCCW1 and DXCCW2 must contain search ID 
EQ,TIC*-8 

• RUCB contains address of current UCB on which 
full VTOC search failed 

• TIOT UCB pointer rotated to correct volume 

• Work DEB set up with address of correct volume 

• DSCB from correct volume in main work area 



• Register RET=0. 

• Reply of 'U' to use data set, or reply of 'M' not 
to use data set 

Message IEC107D E is issued 

IFG0190P with internal ABEND code of 28 



( Exit ^ IFG0194E Figure 51 

(if missing identifier (format 1 ) DSCB) 
IFG0195A Figure 51 

(if reply of 'U' given by operator) 
IFG0198N Figure 59 

(to terminate operation) 



Figure 52 (Chart 2 of 3). Open Direct-Access Processing 



1 04 Open/Close/EO V Logic 



( Entry } IFG0194E Figure 51 
T IFG0195O Figure 52 



IFG0194A 

Open Direct-Access— Volume Verification Function 



Scans UCBs pointed to by TIOT DD entry for matching 

volume serial number. 
Selects unit from TIOT DD entry UCB list to mount 

specified volume on. 
Increases by 1 UCB Open DCB data management counter to 

hold this UCB for this volume. 
Sets up work DEB UCB address and extent for selected unit. 



Input: 



Exit 



IFG0190R Figure 89 
(to issue message) 



Output: 



( Entry ) IFG0190R Figure 89 



IFG0194C 

Open Direct- Access— Volume Verification Function 



Reads volume label to verify that it is correct label. 
Moves VTOC TTR into UCB and turns off mount bit. 
Moves new volume serial number into JFCBVOLS for 
nonspecific request. 



• Registers — 

RTIOT - current TIOT DD entry (May be each of 
several entries for concatenated BPAM or ISAM 
data sets ) 

RET — entry indicator (If 4 or 8, work DEB must 
already be set up for unit selected for volume ) 

• Work areas: 

DXLBL (96 bytes) — must be available for writing 
messages and reading volume label 
DXJBF (176) bytes) - used for DSNAME and 
temporary data set indicator in mount message 
DXCCW2+4 - address in TIOT DD entry UCB list of 
first UCB pointers that can be used 
DXCCW8 - DXCCW1 1 - register save area 
DXVOLMT1 — contains volume serial number of 
specified volume 

• Registers 

RUCB - current or main UCB address 
RET — set to 4 as return entry indicator 

• Work areas: 

DXLBL - volume label 

DXCCW2+4 - address in TIOT DD entry UCB 
list of first UCB pointer that can be used 
DXCCW1 - DXCCW3 - contain search ID EQ, 
TIC * -8 channel program 

DXVOLMT1 — contains volume serial number of 
specified volume 
Messages IEO106E R and IEC101 A M may be issued 



Same as IFG0194A 



Input: 

Output: • Same as IFG0194A 

• May issue message I EC1 1 1 E D 



( Entry ") IFG0195F 

(alias entry for Open), or 



IFG0194E Figure 51 

(if DSCBtoberead) 
IFG0195E Figure 52 

(if DISP=MOD error recovery needed) 



user's input header 
or trailer label exit 
routine 



IFG0554L (IFG0195F) 

Open Direct-Access— Input User Label Function 



Reads user header or trailer labels for presentation to user's 

input header or trailer label processing routine. 
Area in main storage is obtained from subpool 250 for use 

as work area, label buffer, and parameter list. 
Labels are read and presented to user until — 
EOF is encountered; 

user indicates termination of processing through 
a return code; 

maximum number of labels (8) have been processed. 
After user's routine has processed label passed to it, 

processes according to code returned by user 
- if there are any remaining labels in label group, they are 

ignored. Normal processing is resumed. 
4 - next label is read into label buffer area and control is 

returned to exit routine. If there are no more labels in 

label group, normal processin is resumed. 
8 - label is written from label buffer area. 

Normal processing is resumed.* 
12 - label is written from label buffer area. Next label is 

read into label buffer area and control is returned to 

label processing routine. If no more labels, normal processing 

is resumed.* 



IFG0195M Figure 51 
(if BPAM concatenation) 

IFG01950 Figure 52 
(if parallel mounting required) 



Input: • Register RC - contents of fullword or user's DCB 

exit list entry being processed 

• Work areas' 

DSCEXTYP - extent type and size of first extent 
in format 1 DSCB 

DXDAADDR - MBB must already be set 

up for extent and bin number for this volume 
DXDEBMOD - DXDEBNTR - must be st up to 
cover whole volume 

DXVOLMT - used as save area for CCHHR of 
format 1 DSCB from DXCCW7 

• User labels — existing user header or trailer 
labels are read from one track user label extent 
for this data set 

Output: • User labels — if data set opened for UPDAT 
user labels may be modified and written back 
at option of user's exit routine 

• Registers and work areas same as for input 



*Only for physical sequential data set opened for UPDAT 
(UHL, UTL), physical sequential data set opened for OUTPUT 
or OUTIN with DISP=MOD (UTL), or direct data set opened 
for UPDAT or OUTPUT (UHL, UTL) 



IFG0554LOFG0195F) 

(to user's input header or trailer label 
exit routine via SU SYNCH (SVC 12) 
IFG0195J Figure 51 
(if multivolume BDAM data set with 
SUL) 



Figure 53 (Chart 3 of 3). Open Direct-Access Processing 
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C~Entry~) IFG0195K Figure 48 

" IFG0195N Figure 48 

IFG0196Q Figure 50 

IFG0195U Figure 55 

IFG0195V Figure 54 

IFG0195J Figure 51 



IFG0195T 

Open Security— Initialization Function 



Gets main storage for security work area. 

Constructs DEB in work area. 

Searches system resident VTOC for DSC 6 of password data s 

Points to each DSNAME to be checked. 



Initial 

exit 
if TSO 



initial 
exit 



final exit 



Input: 



Exit 



IFG0196J Figure 56 

(if Open direct-access or Open tape 

input) 
IFG0196N Figure 50 

(if Open tape output) 
IFG0553H Figure 76 

(if EOV tape input) 
IFG0553X Figure 82 

(if EOV direct-access input) 



( Exit ) 



READPSWD Figure 55 
(if password to be read) 



( Entry "*) SECLOADA Figure 55 



IFG0195V 

Open Security— STO Password Function 



Search for DSE with matching DSNAME. If found, use 
. TTR to read record it points to in password data set. 

Check that DSNAME in record matches DSNAME of data set. 

Checks, for Scratch or Rename, mode indicator to make sure 
it is read or write. For Open or EOV, mode indicator 
must correspond with use mode of data set. 

Increases, for Open or EOV password record, use counters by 
1 and record is written back. 

Checks, if above does not work, TJBX for a master password. 



Input: 



Registers: 

RDCB- DC B address 

RCORE — main work area address 

RES — resident routine address 

RWTG — address of WTG table (inside main work 

area if entered by EOV) 
RPARC — address of current entry in DCB parameter 

list. 
RWTGC — address of current entry in WTG table 
RTIOT - address of TIOT DD entry 
RET — = branch table initial entry code 
4 = parallel DCB entry 
8 = successful return from IFG0195U or 
IFG0195V 
Main work area: 

RXCCW8 - 1 1 - register save area (contents of registers 
9-14, 0-1 saved by resident routine); 
BPAM identifier (format 1 ) DSCBs, 
if any, chained to DSCCORE 



WTG table: 
WTGMODNM 



WTGIDTTR - 



- must be IFG0195Tevery time 

this module is entered 
ID/TTR (TTR may be 0) 



Output: • Registers: 

RBASE - base register of IFG0195T 
RUCB - first UCB address from TIOT DD entry 
RET — branch table initial entry code for next module: 
Ofor IFG0196J 
Ofor IFG0196N 
Ofor IFG0553X 
16 for IFG0553H 
• WTG table: 

WTGMODNM - IFG0195Tfor Open or IFG0555T 

for EOV 
WTGIDTTR - ID/TTR of next module (TTR is if 
entered by EOV) 



Output: 



Error Exit: 



Exit 



IFG0195U Figure 55 

If master LOGON password is available for 

Open or EOV to check 
IFG0195T Figure 54 

If DSE TTR was valid for Open or EOV. 
SECLOADA Figure 55 

If DSE TTR was valid for Scratch or Rename, 

or if master password is available for Scratch or 

Rename to check 
READPSWD Figure 55 

If password to be read 



• Registers: 

RCORE - pointer to DXCORE work area if Open 

or EOV 
— pointer to DXCCW1 work area if Scratch 

or Rename 
RES — pointer to resident routine if Open or EOV 
R5 — pointer to work IOB if Scratch or Rename 
RWTG - WTG table address if Open or EOV 
RPARC — pointer to DCB parameter entry if Open 

or EOV 
R7 — pointer to work ECB if Scratch or Rename 
RB - pointer to 44 character DSNAME 
RD — pointer to security work area 

• Security work area DEB already chained to work 
DCB 

• Address of DXCCW1 already in IOB start address 

• Exit code in MYCODE2 

• Master password in MYREPLY if exit code = 2 

IFG0195U for Open or EOV if I/O error during 
updating of valid password record 



Figure 54 (Chart 1 of 2). Open Security Processing 



1 06 Open/Close/EO V Logic 



C Entrv ~) IFG0195V Figure 54 
I READPSWD Figure 55 



IFG0195U 



Open Security— Search Function 



Searches password data set on system residence volume for a 

record with key equal to 44-character DSNAME and 

8-character password. 
Checks that input/output mode of password matches use mode 

for data set. 
Increases, if password is valid, counter in data part of record 

by 1 and writes it back. 
Saves, for TSO only, TTR of password record in a DSE with 

same DSNAME, if there is one. 



to try another 
password 



Input: 



Output: 



C Exit ) IFG0195T Figure 54 
(if password valid) 



C Ernry ) 



IFG0195V Figure 54 
SECLOADA Figure 55 
IGG0290A Scratch 
IGG03001 Rename 



READPSWD 

Open Security— Read Password Function 



Writes message to operator or a TSO terminal requesting 

password for a data set. 
Accepts 8-character password. 



if entered from 
Rename or 
Scratch 



Input: 



Exit 



"") IFG0195U Figure 55 

(if entered by Open or EOV) 



SECLOADA 

Open Security— Scratch/Rename Function 



Gets main storage for security work area. 

Constructs work DEB in work area. 

Searches system resident VTOC for DSCB of password data 

set. 
Searches password data set on system residence volume for 

a record with key equal to 44-character DSNAME and 

8-character password. 
Checks mode indicator for read/write. 
Frees main storage used by security work area. 



final 
exit 



initial 
exit 



Output: 



Input: 



Output: 



Exit 



Exit 



IFG0195V Figure 54 

(if TSO to check DSE for TTR of 

previously supplied password or to get 

master password) 
READPSWD Figure 55 

(if password to be read) 



IGG0290A 
(if entered from Scratch; see OS 
DADSM Logic for a description of this 
module) 

IGG03001 
(if entered from Rename; see OS 
DADSM Logic for a description of this 
module) 



• 8-byte password in MYREPLY 

• 44-character DSNAME pointed to by Register RB 

Messages IEC117I and IEC118I may be issued for 
TSO tasks only 



• MYCODE1 indicates initial entry: 

00 from Open 

01 from EOV 

02 from Rename 

03 from Scratch 

• MYCODE2 indicates retry count actions: 

00 initial entry 

01 TSO DSE TTR not present or not valid and master 
password not available; get password from 
terminal 

02 TSO with master password failed; get password 
from terminal 

03 first password supplied was wrong, one more try 

04 second password supplied was wrong 

05 TSO DSE TTR was valid 

08 terminal supplied password longer than 8 
characters 

09 I/O error while updating record read by TSO DSE 
TTR 

Message IEC301 A may be written to operator or 
messages IEC113A, IEC1 151 , IEC1 16A,or IEC117I 
may be written to TSO terminal. 



• Register RUCB: 

X'02000000' for initial entry from Rename 
X'03000000' for initial entry from Scratch 
on all reentries 

• MYCODE2: 

00 initial entry 

01 TSO to READPSWD for first try 

02 TSO master password in MYREPLY to be checked 

03 ordinary or TSO password in MYREPLY to be 
checked 

04 ordinary or TSO password in MYREPLY to be checked 

05 TSO DSE TTR password was valid 

08 TSO terminal supplied password longer than 8 
characters 

09 TSO wrong mode error 

• Message IEC1 1 71 may be issued as required 

• Register RUCB: 

X'00000000' for successful password 
X'01 000000' for unsuccessful password 
X'02000000' for no password data set on system 
residence volume 



Figure 55 (Chart 2 of 2). Open Security Processing 
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( Entry *) 



IFG0193A 

IFG0194D 

IFG0194I 

IFG0195A 

IFG0195B 

IFG0195C 

IFG0195D 

IFG0195K 

IFG0195M 

IFG0195N 

IFG0195P 

IFG0195T 



Figure 44 
Figure 45 
Figure 46 
Figure 51 
Figure 48 
Figure 49 
Figure 49 
Figure 48 
Figure 51 
Figure 48 
Figure 52 
Figure 54 



IFG0196J 

Open Merge-JFCB Function 



Restores original UCB address in work DEB for direct-access 

data sets. 
Merges JFCB fields into DCB fields for SAM, PAM, DAM 

ISAM, and EXCP data sets. 



all other 
data sets 



if data set is graphics or 
telecommunications mode 



IFG0196K 

Open Merge-JFCB Function 



Merges JFCB to DCB fields for graphics and telecommunications 
data sets. 



IFG0196L 

Open Merge— DCB Exit Function 



Issues SYNCH macro to go to user's DCB exit routine to let 
user inspect and modify his DCB before backward merge 
is started form DCB. 



IFG0196M 

Open Merge- DCB To JFCB Function 



Merges DCB fields into JFCB fields. Merged fields relate to 
access method being used. 



Input: 



Output: 



• JFCB in each of DCB work areas 

• Register RTIOT - address of TIOT DD entry for data 

set 

• Merged fields in user's DCB 

• Indication of which fields were merged is saved in 
JFCBMASK 



Input: 
Output: 



JFCB in each O/C/EOV work area 

• Merged fields in user's DCB 

• Indication of which fields were merged is saved in 
JFCBMASK 



Input: Standard 

Output: Standard 

External User's DCB exit routine pointed to by X '05' entry 

References: in DCB exit list 

Error 

Exits: IFG0190P with internal ABEND code of 44 or 46 



Input: Standard 

Output: Merged fields in JFCB located in O/C/EOV work area 



( Ex?t ) 



IF G0 1960 Figure 49 

(if writing magnetic tape output NSL) 
IFG0555JOFG0196P) Figure 57 

(if writing direct access output standard 

user header labels) 
IFG0196V Figure 58 

(all other data sets) 
IFG0196N Figure 50 

(if writing magnetic tape output standard 

label) 



Figure 56 (Chart 1 of 2). Open Merge Processing 



1 08 Open/Close/EO V Logic 



Entry ) IFG0196M Figure 56, or 

Return from user's label exit routine 



IFG0555J0FG0196P) 

Open Merge— Direct-Access Output User Header Label 

Function 



Writes output user header labels for Open and EOV under 
control of output user header/trailer label routine, or 
formats user label track if no user label exit routine 
exists, data set is being processed for output, and LABEL= 
SUL. 

Obtains an area of main storage from subpool 250 for use as 
a work area, label buffer, and parameter list. 

Gives, if user label track was allocated (always first extent 
in identifier (format 1 ) DSCB), control to user's label 
exit routine by issuing SYNCH macro. 

Processes according to code returned by user after user's 
routine has processed label: 

— no label is written from label buffer area. Normal 

processing is resumed. 
4 — user label is written from label buffer area. Normal 

processing is resumed. 
8 — user label is written from label buffer area. If fewer 

than eight labels have been created, control is returned 

to exit routine which then creates next label. 

If eight labels have been created, normal processing is 

resumed. 



Input: • Register RC — contents of full work of user's DCB exit 

list entry that is being processed 

• Work areas: 

RBGRS2-RBGRS1 3 - user's registers 2-1 3 were 
saved in SVRB general register save area 
DSCEXTUP-extent type and size of first extent in 
identifier (format 1) DSCB 

DXDAADDR — MBB must be already set up 

for extent and bin number for this volume 
DXDEBMOD-DXDEBNTR - must be set up to 
cover whole volume, and therefore to cover UL extent 
DX VOLMT2 — used as save area by Open only to 
save CCHHR of identifier (format 1 ) DSCB from 
DXCCW7 since DXCCW7 is needed for channel 
program 

Output: • User labels constructed by user label exit routine are 
written on user label track allocated for this data set 

• Registers — at final exit from this module, registers 
2, 4-14 are same as they were at entry, allowing this 
module to be called as though it were a subroutine 

• Work areas: 

DXDAADDR — MBB same as at entry to module 

External 

References: Input user header or trailer label exit routine. 



Exit ) IFG0196V Figure 58 
(to continue normal 
processing for Open) 



Figure 57 (Chart 2 of 2). Open Merge Processing 
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( Entry """") 



IFG0195M 
IFG0196O 
IFG0196T 
IFG0196U 



Figure 56 
Figure 49 
Figure 50 
Figure 50 



IFG0555JOFG0196P) Figure 57 



IFG0196V 

Open Access Method Executor Determination Function 



Determines first access method executor to be used for each 

DCB according to DSORG and MACRF. 
Places ID/TTR of executor in corresponding WTG table entry. 



to access method executors , 



( Exit ) IGG0191A 



if SAM, BPAM, EXCP 
IGG0191C — — — - 

if SAM null (dummy) data set 
IGG0192A -——-—— 

if ISAM 
IGG0193A —---———- 

if BDAM 
IGG0193N — — — — 

if GET/PUT DSORG=CX 
IGG0193M — — — — 

if READ/WRITE DSORG=CX 
IGG0193O 



if GET/PUT DSORG=CZ 
IGG0193P 



if GET/PUT DSORG=MQ 
IGG0193Y — — — 

if graphics access method 
IGG01930 



if TC AM message QUEUE 
IGG01935 



if TCAM line group 
IGG01946 — 
if TCAM PS 



Input: • A JFCB in each O/C/EOV work area 

• Register RTIOT - address of TIOT DD entry 
for data set 

Output: • WTG table; 

ID/TTR of first executor in WTG entry for each 
DCB that is still being opened 

• Registers: 

RCORE — address of current DCB work area 
RPAR — address of DCB parameter list 
RWTG - address of XCTL/WTG table 
RPARC — address of current entry in DCB 

parameter list 
RWTGC — address of current entry in WTG table 



( Entry ) IGG0190S 

(alias entry for return from access method 
executors) 



IFG0196W0GG0190S) 

Open Access Method Executor Return Function 



Restores WTG table entries for use by resident routine. 



Input: • Pointer to Open DCB parameter list 

• Pointer to WTG table 

• Pointer to new DEB for user's data set 



Output: Reinitialized WTG table entries with 

ID/TTR of current module 



( Exit ) IFG0196W Figure 59 

(to continue for final processing) 



Figure 58. Open Access Method Executor Processing 



1 1 Open/Close/EO V Logic 



C Entry 



3 IFG0196W(IGG0190S) 
Figure 58 



IFG0196W 



Open Final-JFCB To DSCB Merge Function 



Merges JFCB fields into DSCB. 

If DSCB has been modified by this merge or any other module, 
writes DSCB back to VTOC. 



Input: • JFCB in main work area 

• Identifier (format 1 ) DSCB in main work area 

• BBCCHHR of DSCB saved by executors in DEB 
from DXCCW7 

Updated identifier (format 1) DSCB in VTOC 



Output : 

External 
References: 

Error 
Exits: 



IECZDTAB 



IFG0190P with internal ABEND code of 31 



IFG0196X 

Open Final-JFCB To DSCB Merge Function 

Open EXCP Appendage Function 

Open Final-SYSOUT Limit Function 

Open Final-Write JFCB Function 



Merges JFCB fields into DSCB. 

If DSCB has been modified by this merge or any other module, 

writes DSCB back to VTOC. 
Loads IGG019xx EXCP appendage routines for EXCP DCB 

that requested them. 
Stores their addresses in DEB appendage vector table (AVT) 

for this DCB. 
Converts number of logical records from OUTLIM=nnn 

into number of EXCPs that will write that many logical 

records. 
Stores results of conversion in TCTOUTLM for comparison 

by I OS every time an EXCP is issued against corresponding 

data set. 
Writes back JFCB so that merged and updated fields will be 

available for writing trailer labels during EOV and Close, 

or when data set is reopened. 



Input: • JFCB in O/C/EOV work area 

• Identifier (format 1 ) DSCB in O/C/EOV work area 

• BBCCHHR of DSCB saved by executors in DEB 
from DXCCW7 

• List of 2-byte IDs in EXCP DCB of IGG019xx appendage 
modules to be loaded from SYS1 .SVCLIB 

• OUTLIM parameter in JFCB from DD statement 

• DCB LRECL, BLKSIZE,and RECFM 

• TTR of JFCB in TIOT DD entry 

Output: • Updated identifier (format 1 ) DSCB in VTOC 

• EXCP appendage modules loaded in main storage and 
their addresses stored in DEB AVT for this DCB 

• EXCP count limit in TCTOUTLM 

• Updated JFCB in SYS1.SYSJOBQE 



External 
References: 



Error 
Exits: 



CVTJOB, IECPCNVT, IEFQCNVT, IECOSCRI 



IFG0190P with internal ABEND code of 31 or 35 



( E "try ) IFG0199R Figure 91 



IFG0198N 

Open Final— Write JFCB Function 

Open Final— Termination Function 



Writes back JFCB so that merged and updated fields will 

be available for writing trailer labels during EOV and 

Close, or when data set is reopened. 
Ends processing with resident routine and frees main storage 

area used for its work area. 
Deletes, with IFG0199R, optional trace routine and frees 

main storage used as its work area. 
Frees main storage used as O/C/EOV work area for each DCB. 
If a deferred ABEND is present, restores registers and issues 

ABEND. 
Frees main storage used for WTG table. 



Input: 
Output: 



Error 
Exits: 



JFCB in O/C/EOV work area 

Pointer to WTG table in Register RWTG 

Updated JFCB in SYS1 .SYSJOBQE data set 

Open return code in Register 15: 

— DCB opened correctly 

4 — DCB was not opened or modified in any way 

8 — DCB only partially opened; it is not usable for I/O, 

nor may it be reopened or closed without total 

reconstruction by user 



• IFG0190Pwith internal ABEND code of 35 

• ABEND X13 



Exit 



IFG0199R Figure 91 
(if IFG019TR optional trace routine 
was used) 

SVC 3 

(to caller of Open for EOV concatenation 
with unlike attributes, this is to caller of EOV) 



Figure 59. Open Final Processing 
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( Entry 



_J CLOSE macro, or 
SVC 20 



IGC00020 

Close Initialization Function 



Determines whether DCB is to be closed. 

Obtains main storage for WTG table and fills area to be used 

with zeros. 
Obtains main storage for work area for each DCB to be 

processed. 
Constructs control blocks needed to perform close processing. 
Purges queued and active I/O requests associated with data 

sets being processed by EXCP macros. 



Exit 



_J SVC 3 (to calling program if no DCB in 
parameter list can be processed) 



IFG0200V 

Close Initialization Function 



Reads JFCB into O/C/EOV work area. 
Obtains main storage for resident routine work area. 
Determines whether SMF data set information is needed. 
Goes to and returns from optional trace initialization. 
Determines which functions are to continue processing. 



Exit 



_J IFG0200W Figure 61 
(if tape processing) 
IFG0200V Figure 63 
(if direct -access processing) 



IFG0200W 



Close Unit Record/Teleprocessing Function 



Determines access method executor to be used. 
Goes to and returns from executors if user is not using 
EXCP macro for I/O operations. 



to 
access 



method ( Exit ") IGG0201A 

executor if TSO 

IGG02046 



if TCAM QNAME 

IGG0203N 

if QSAM 

IGG0203M — 

if BSAM 

IGG0203O — — 

if BTAM 



Input: 
Output: 



Error 
Exits: 



Pointer in register 1 to parameter list 

Pointer to each of the following registers* 

• RPARC 

• RTIOT 

• RWTG 

• RWTGC 

• RDCB 

• RCORE 

• RES 

• RUCB 

• RDEB 



I FG0200P with internal ABEND code 111 or 1 1 2 



Input: Output from I GC00020 

Output: JFCB in work area 

External 

References: IECPCNVT, IEFQCNVT, IEC0SCR1 



Error 
Exits: 



IFG0200Pwith internal ABEND code 111 or 112 



Input: 
Output: 



Standard 
Standard 



IGG0203P — — — 

if QTAM 
IGG0203Y — — — — 

if GAM 
IGG02035 — — 

if TCAM TX 
IGG0201D — — 

if 1275 or 1419 device 
IGG02030 — 



if TCAM TQ 



( Entry ) IGG0200G 

I (alias entry return from access method executor) 



IFG0200Y (IGG0200G) 

Close Unit Record/Teleprocessing Function 



Provides, for unit record and teleprocessing devices, an 
entry for return from access method executors. 



Input: 
Output: 



Standard 



Standard 



Exit 



_J IFG0202J Figure 65 
(if final processing) 



Figure 60. Close Initialization Processing 



1 1 2 Open/Close/EOV Logic 



( En |ry ~) IFG0200V Figure 60 



I F GO 200 W 

Close Tape— Access Method Executor Interface Function 



Determines which access method executor(s) is to be used. 
Goes to and returns from executors if user is not using 
EXCP macro for I/O operations. 



Input: Standard 

Output: Standard 



( Exit ") IFG0201A ___ 
(to access method executor) 



I 



( Entry ) IGG0200G 

T (alias entry for access method executors) 



IFG0200Y0GG0200G) 

Close Tape— Access Method Executor Interface Function 



Provides an entry for return from access method executor. 
Determines which functions are needed to complete tape 
processing. 



if input 
standard 
user label 



if output 
standard 
trailer label 



( Exit ) IFG0202B Figure 62 

(if nonstandard label processing) 
IFG0202F Figure 62 

(if tape volume disposition processing) 
IFG0202J Figure 65 
(if final processing) 



IFG0200Z 

Close Tape— Standard Trailer Label Function 



Writes tapemark following data set. 

Constructs and writes trailer label 1 from information in 

JFCB, DCB, and UCB. 
Constructs and writes trailer label 2 from information in 

JFCB and TIOT. 
Translates American National Standard labels before writing 

them. 



if standard 
user label 



C Exit ) IFG0202F Figure 62 

(if tape volume disposition processing) 



IFG0202A 

Close Tape— Standard User Label Function 



Determines whether user label processing is required. 
Gets main storage for a label work area to be used for 
72-byte work area 
80-byte work area 
16-byte parameter list 
Reads or writes user labels and issues SYNCH macro to pass 

them in label buffer to appropriate user exit. 
Examines condition code returned by user and proceeds 
according to following codes- 

— Do not read or write label; discontinue user label 

processing. 
4 — Read or write label; discontinue user label 

processing. 
8 — Read or write label, and, if fewer than eight labels 
have been created, discontinue user label 
processing. 
Translates American National Standard labels before they 
are written. 



Input: Standard 

Output: Standard 



Input: Standard 

Output: Trailer labels 1 and 2 



Error 
Exits: 



Input: 



IFG0200P with internal ABEND code 61, 62, or 63 



Standard 



Output: • User labels are read or written on tape for user 

• Tape is positioned beyond last user label processed 
or beyond data set labels if no user label 

External 

References: User's exit routines 



Error 
Exits: 



IFG0200P with internal ABEND code 64 



Exit 



_J IFG0202F Figure 62 

(to tape volume disposition processing) 



Figure 61 . Close Tape Processing Chart 
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C Entry ) 



IFG0200Y Figure 61 
IFG0232Y 

alias entry for TCLOSE 
IFG0556B 

alias entry for EOV after deferred NSL 

processing 
IGG0200B 

alias entry for user's nonstandard label input 

and output routines 
IFG0202H Figure 66 



IFG0202B (IFG0232Y) (IFG0556B) (IGG0200B) 
Close Tape— Nonstandard Label Function 



Goes to and returns from SMF data set function if data set 

isnotSYSINorSYSOUT. 
Tests nonstandard label DCBs for label processing deferred 

from end-of- volume to end-of-data. 
Releases extra storage acquired for deferred table processing. 



if volume 

disposition 

processing 



Input: 



Output: 



Standard 

Nonstandard labels processed 



( Exit ) 



( Entry ) 



IFG0202H Figure 66 

(SMF data set) 
NSLETRLI to user's NSL trailer label input 

routine if the trailer labels were not processed 
NSLOTRLO to user's NSL trailer label output routine 

to process labels and to perform volume disposition 

for NSL tape volume 
IFG0232Z Figure 70 

(for TCLOSE final tape processing) 
IFG0202J Figure 65 

(if final tape processing) 

IFG0200Y Figure 61 

IFG0202A Figure 61 

IFG0200Z Figure 61 

IFG0202H Figure 66 



IFG0202F 

Close Tape— Volume Disposition Function 



Goes to and returns from SMF data set function if data set is 

notSYSINorSYSOUT. 
Issues SVC 91 to obtain volume statistics. 
Determines specified disposition of tape and positions tape 

accordingly. 
Takes disposition in TIOT if no disposition is specified. 
Assumes LEAVE disposition if no TIOT disposition Is 

specified. 



if to 

continue 
processing 



( Exit ) IFG0202H Figure 66 

(if to process SMF data set) 
IFG0202J Figure 65 
(if to final tape processing) 



( Entry ) IFG0200R Figure 89 

T (return from message module) 



IFG0202G 

Close Tape— Volume Disposition Function 



Rewinds, or rewinds and unloads, tape and issues appropriate 
message. 



Input: 

Output: 

Error 
Exits: 



Standard 

Tape positioned according to disposition 

IFG0200P with internal ABEND code 65 



Input: 

Output: 

Error 
Exits: 



Standard 

Tape positioned according to disposition 

IFG0200P with internal ABEND code 65 



( Exit ) 



IFG0200R Figure 89 
(if to issue message) 

IFG0202J Figure 65 
(if final tape processing) 



Figure 62 (Chart 2 of 2). Close Tape Processing 



1 14 Open/Close/EOV Logic 



( En yv ") IFG0200V Figure 60 

I (from Close initialization) 



IFG0200V 

Close Direct- Access— Read DSCB Function 



Reads DSCB into O/C/EOV work area for output and user 
label processing. 



IFG0200W 

Close Direct-Access— Access Method Executor Interface 

Function 



Determines access method executor to be used. 
Goes to and returns from executors if user is not using EXCP 
macro for I/O operations. 



Input: 
Output: 



Standard 

DSCB in work area 



External 

References: IECPCNVT, IEFQCNVT, IEC0SCR1 



Error 
Exits: 



Input: 
Output: 



IFG0200P with internal ABEND code 86 

Standard 

Standard 



to access method ( Exit *) IGG0202A 
executor V ' jf B|SAM 

IGG02029 



if QISAM SCAN mode 
IGG0202I 

if QISAM LOAD mode with fixed length 

records 
IGG02028 



if QISAM LOAD mode with variable length 
records 



r 



IGG0202D — — — — 

if ABEND in control 
IGG0201Z 

if physical sequential data set 
IGG0203A 



if direct organization data set 
IGG0203O — — — — 

if BTAM 
I G G0203P — — — 

if QTAM 
IGG02030 — — — — 

if TCAM TQ 



( Entry ) IGG0200F 

(alias entry for DADSM partial release routine) 
IGG0200G 
(alias entry for access method executors) 



IFG0200Y (IGG0200F) (IGG0200G) 

Close Direct-Access— Access Method Executor Interface 

Function 

Close Direct-Access— Update DSCB Function 

Close Direct-Access— Partial Release Interface Function 



Provides an entry return from access method executors. 

Determines which functions are needed to complete direct- 
access processing. 

Reads identifier (format 1 ) DSCB if Close executors had 
called EOV when output buffers were being cleared. 

Updates last track used and track balance fields in DSCB for 
output PS and PO data sets. 

Updates directory count for BPAM data sets. 

Transfers control, by issuing EXTL macro, to DADSM partial 
release routines to release unused external storage if RLSE 
is specified on the DD statement. 



to write 
DSCB 



Input: Standard 

Output: • Standard 

• DSCB is updated 

• Unused storage is released 



( Exit ) IFG0202C Figure 64 

(if to process input user labels) 

IFG0202E Figure 64 
(if to exit from direct-access processing) 

IFG0202J Figure 65 
(if to final processing) 

IGG020P1 (to DADSM partial release routine) 



IFG0201R 

Close Direct-Access— Write DSCB Function 

Close Direct- Access— Output User Labels Function 



Writes updated DSCB. 

Determines whether current volume is first volume for new 

direct-access data set. 
Finds first volume and reads identifier (format 1 ) DSCB. 
Gets an area of main storage to use as label work area and 

buffer. This area is used to format user label records and 

as a save area for registers. 
Gives control to user's label construction routine if a track 

was allocated for user labels. 



Input: Standard 

Output: • DSCB is written back to VTOC 

• User trailer labels written on first volume for new 
direct-access data set 

External 

References: User's output label exit routines 



Error 
Exits: 



IFG0200P with internal ABEND code 88 or 89 



( Exit ) IFG0202D Figure 64 

(to continue output user label processing) 
IFG0202E Figure 64 
(to write end-of-file marks) 



Figure 63 (Chart 1 of 2). Close Direct-Access Processing 
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( Entry ) 



IFG0201R Figure 63 



IFG0202D 

Close Direct-Access Output— User Labels Function 



Writes constructed label with one end-of-file mark for user 

trailer labels. 
Writes up to eight user trailer labels as required for data sets on 

direct-access volumes. 



to process 
file marks 



( Entry ) IFG0200Y Figure 63 



IFG0202C 



Close Direct-Access Input— User Labels Function 



If user specified label type SUL for physical sequential or 
direct data set and if appropriate user label exit active, 
reads user trailer labels for user's input trailer label 
processing routine. 

Obtains main storage from subpool 250 for use as label work 
area, label buffer, and parameter list. 

Reads labels and passes information to user until: 

• end-of-file is encountered; 

• user indicates termination of processing through return code; 

• maximum number of labels (8) have been processed. 
Continues processing according to following return codes passed 

by user: 

• Input data sets 

— No further processing of user label; processing by 

Close operation continues 
4 — If eight user labels have not been read, read next user 

label; if eight have been read, end processing of 

user labels 

• Update operations 

— Same as for input 
4 — Same as for input 
8 — Write label in label buffer, then perform no 

further user label processing 
12 — Write label in label buffer, then read next user label. 



Input: 
Output: 



Error 
Exits: 



Standard 



User trailer labels written on first volume for new 
direct-access data sets 



IFG0200P with internal ABEND code 89 



Input: Standard 

Output: User trailer labels processed 



( Entry ) IFG0200Y Figure 63 
V -T IFG0201R Figure 63 



IFG0202E 

Close Direct-Access— Write End-of-file Mark Function 

Close Direct- Access— Exit Function 



Writes end-of-file mark for physical sequential data set opened 

for output processing. 
Goes to and returns from SMF data set function if data set is 

notSYSINorSYSOUT. 



Input: Standard 

Output: End-of-file mark written 

Error 

Exits: IFG0200P with internal ABEND code 90 



( E *'* ) 



IFG0202H Figure 66 
(if to process SMF data sets) 

IFG0202J Figure 65 
(if to final processing) 



Figure 64 (Chart 2 of 2). Close Direct-Access Processing 



1 1 6 Open/Close/EO V Logic 



( Entry ~") 



IFG0200Y Figure 66 

(from Close initialization string) 
Figure 61 

(from Close tape string) 
Figure 63 

(from Close direct-access string) 
IFG0202B Figure 62 
IFG0202E Figure 64 
IFG0202F Figure 62 
IFG0202G Figure 62 
IFG0202I Figure 66 



IFG0202J 

Close Final— Restore Data Management Function 

Close Final— Restore System Function 



Deletes access method subroutines and I/O appendages loaded 

when data set was opened. 
Releases user totaling save area. 
Restores DCB to original state if DCB was modified by Open 

processing. 



Input: 
Output: 



Standard 

• All subroutines and I/O appendages are deleted 

• User totaling save area is released 

• Data management count is decreased by 1 

• DCB is restored to original state 



IFG0202K 

Close Final— Restore System Function 

Close Final— Termination Function 



Removes DEB from DEB chain. 
Decreases data management count by 1 . 
Frees main storage used for IRB and DEB. 



Input: 
Output: 



Standard 

• All storage used by Close is released 

• Resident routine is deleted 



IFG0202L 

Close Final— Termination Function 



Goes to and returns from trace termination facility. 
Frees main storage used for DCB work area and ECBLIST. 
Releases WTG table. 
Deletes resident routine work area. 



Input: 
Output: 



Standard 
Standard 



Exit 



IFG02029R Figure 91 

(if optional trace facility termination needed) 
IGC0001I Figure 44 

(if concatenation of unlike attributes) 

SVC 3 



Figure 65. Close Final Processing 
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( Entry ) IFG0202B Figure 62 

" IFG0202E Figure 64 

IFG0202F Figure 62 

IFG0553B (alias entry for EOV) 



IFG0202H (IFG0553B) 

Close SMF Data Set-SMF Record Builder Function 



Calculates storage needed to build SMF record. 
Issues GETMAIN macro for storage required to build record. 
Builds common segemnts of type 14/15 SMF records. 
Completes building type 14/15 SMF record for tape data set 

and issues SMFWTM (SVC 83) to have record written 

on SYS1.MANX data set. 
Issues FREEMAIN macro to release storage obtained for 

record. 



to continue processing 
if entered for direct- 
access 



Input: 
Output: 



Standard 

SMF record written for tape data sets 



Exit 



IFG0202B Figure 62 

(if to continue nonstandard label processing) 
IFG0202F Figure 62 

(if to continue volume disposition processing) 
IFG0202J Figure 65 

(if to final processing) 
IFG0551T Figure 77 

(if to continue EOV output volume disposition 

processing) 
IFG0552R Figure 74 

(if to continue EOV input volume disposition 

processing) 
IFG0552T Figure 74 

(to continue EOV input standard trailer 

label processing) 
IFG0552X Figure 75 

(if to continue EOV end-of-data processing) 



IFG0202I 



Close SMF Data Set-SMF Record Builder Function 



Completes building type 14/15 SMF record for direct-access 
data set and issues SMFWTM (SVC 83) to have record 
written onSYSI.MANX data set. 

Issues FREEMAIN macro to release storage obtained for 
record. 



Input: 
Output: 



Standard 

SMF record written for direct access data sets 



CjElD 



IFG0202J Figure 65 

(if to final processing) 
IFG0553P Figure 81 

(if to continue EOV direct-access input 

processing) 



Figure 66. SMF Data Set Processing 



1 1 8 Open/Close/EOV Logic 



f Entry ) SVC 23 



IFG0239R Figure 91 
(return from GTF initialization) 



IGC0002COFG0232A) 
TCLOSE Initial Function 



Verifies that DCB is to be processed. 

Obtains main storage for WTG table and O/C/EOV work 

area for each DCB to be processed. 
Initializes each O/C/EOV work area with I/O control blocks 

and channel programs. 
Purges outstanding I/O requests for each DCB. 
Reads JFCB into O/C/EOV work area for each DCB. 
initializes registers 0, 1 , and 9-14 for next required module 

and stores contents of registers in O/C/EOV work area. 
Moves ID/TTR of next required module into WTG table entry 

for each DCB. 
Obtains main storage for resident routine work area (ECB list). 
Goes to and returns from the problem determination optional 

trace routine. 



Input: TCLOSE parameter list in register 1 

Output: WTGPATH has X'20' if NSL processing 

required 



External 
References: 



Error 
Exits: 



IECPCNVT 

IFG0230P with internal ABEND code 121 



C E*.t ) 



IFG0232D Figure 69 

(if direct access processing) 
IFG0232G Figure 68 

(if SL tape output processing) 
IFG0232M Figure 68 

(if SL tape input processing) 
IFG0232S Figure 68 

(if NL tape positioning) 



IFG0232Y Figure 62 
(if NSL tape processing) 

IFG0232Z Figure 70 
(if unit record, graphics, or 
communications device types) 

IFG0239R Figure 91 
(if to initialize GTF) 



Figure 67. TCLOSE Initialization Processing 



(" Entry ) IGC0002C Figure 67 




Writes tapemark to delimit data. 

If end of tape condition is detected and positioning option 
is LEAVE, backspaces tape past tapemark and issues 
FEOV macro to continue data set on another volume. 

Formats and writes EOF label 1 . 

Begins formatting for EOF label 2. 



Input: 
Output: 



Error 
Exit: 



Standard 



EOF label 1 written on tape and EOF label 2 
partially formatted 



IFG0230Pwith internal ABEND code 122, 123, or 
140 



( Entry ) IGC0002C Figure 67 



IFG0232M 

TCLOSE Tape— Standard Trailer Label Function 



Finishes formatting and writes EOF label 2. 
Processes output or defferred input user labels. 



( Entry ) IGC0002C Figure 67 



IFG0232S 

TCLOSE Tape— Volume Positioning Function 



Writes, for output data sets, two tapemarks to delimit data 
set following data set labels (SL tape) or following data 
(NL tape). If end-of-tape condition is detected when first 
tapemark is written for NL tape data set with a positioning 
option of LEAVE, FEOV macro is issued to continue 
data set on another volume. 

Rewrites, upon return from FEOV processing, tapemark on 
new volume. 

Repositions data set according to option specified in TCLOSE 
macro: 

• LEAVE — position to data set's logical end 

• REREAD — position to data set's logical beginning 
Updates block count in DCB to reflect position of tape. 



Input: 
Output: 



Error 
Exits: 



Input: 



Output : 



Error 
Exits: 



Standard 

• Register RET contains branch table offset of 

• DXCCW7 in DCB work area contains X'FF' to 
indicate that deferred user label processing occurred 

IFG0230P with internal ABEND code 124 or 141 



• Standard 

• DXCCW7 in DCB work area contains X'FF' to 
indicate that deferred user label processing occured. 



DCBBLKCT field updated 



IFG0230P with internal ABEND code 

1 25, 1 26, 1 27, 1 28. 1 20, 1 30, 1 34, 1 35, 1 36, 1 37, 

1 38, or 1 39 



( Exit ) IFG0232Z Figure 70 
(to final processing) 



Figure 68 (Chart 1 of 1). TCLOSE Tape Processing 
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( Entry ) IGC0002C Rgure 67 



IFG0232D 

TCLOSE Direct-Access Input Function 

TCLOSE Direct-Access Output Function 



Reads DSCB for both input and output processing. If 

DSORG is no PS, no further processing is performed on 
data" set. 

Reposition data set as follows: 

• REREAD - DCBFDAD and IOB seek address fields 
are initialized to point to beginning of first extent of 
the data set. 

• LEAVE - DCBFDAD and IOB seek address fields 
are updated to point to end-of-file that denotes EOD, 
and DCBTRBAL field is updated to reflect number of 
bytes remaining on the track. 

Updates DSCB to reflect address of the last record written 
and number of bytes remaining on the track (DSCLSTAR), 
and rewrited DSCB to the VTOC. 



if output 
trailer labels 



Input: 



Error 
Exits: 



( Exit ~) IFG0232Z Figure 70 
(if to final processing) 




Gets area in main storage to use as label work area and buffer 
area. 

Gives control, if track was allocated for user labels, to user's 
label construction routine by issuing SVC 12. 

Writes label (if label was constructed by user's routine), 
followed by two-end-of-file marks for UHL or one end- 
of-file mark for UTL. 



Input: 



Output: 



Pointer to parameter list, WTG table, and TIOT. 



Output: • in RET to finish output 

• 4 in RET to finish input 

• DXCCW in DCB work area contains X'FF' to 
indicate that data set was not processed. 



IFG0230Pwith internal ABEND code 121, 
or 133. 



132, 



Register 12 contains exit list entry for exit to be 
taken: bits 3-7 are exit type code; bits 8-31 are 
exit address (Os.if there is no active exit) 
JFCBMASK+5 (DCB work area) - bits 5-6 
indicate function requiring user label processing. 

User labels written as requested 



External 
References: 



User's label construction routine 



( Exit ) IFG0232Z Figure 70 
(to final processing) 



Figure 69 (Chart 1 of 1). TCLOSE Direct-Access Processing 



1 20 Open/Close/EO V Logic 



( Entry ^ IFG0239R Figure 91 
IFG0232J Figure 69 
IFG0232S Figure 68 
IGC0002C Figure 67 

IFG0202U (alias entry of Close operation) 



IFG0232Z (IFG0202U) 

TCLOSE Direct-Access Output Function 

TCLOSE Final Function 



Writes end-of-file mark following user's data. 

Positions volume either before first record for REREAD 

or after last record for LEAVE. 
Synchronizes processing for all DCBs. 
Issues delayed ABEND with ABEND code provided by 

problem determination if requested by user in ABEND 

exit routine. 
Terminates the problem determination optional trace. 
Releases resident routine work area. 
Releases O/C/EOV work area for each DCB. 
Resets various data set status indicators in DCB and DEB 

so that processing may continue. 
Releases main storage acquired for WTG table. 



Input: 



Output: 



Standard 

DXCCW in DCB work area contains X'FF' to 

indicate that data set was not processed 



DCBOFLGS = X'C5' 
DEBOFLGS = X'20' 



Exit 



IFG0239R Figure 91 

(if to termainate GTF), or 
return to user upon 
completion of all TCLOSE 
processing 



Figure 70 (Chart 1 of 1). TCLOSE Final Processing 
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C Entry ) 



3 



SVC 31 



IGC0003A 

FEOV Executor Function 



Checks validity of DCB. 

Sets QSAM output buffers to zero. 



Input: Standard 

Output: Address of user's DCB in registers 

External 

References: PUT routine, PUT error routine 



Exit 



IFG0551F Figure 72 
(to read JFCB) 



Q Entry 



J SVC 55 
IFG0551D 



Figure 71 



IGC0005E 

EOV Executor Function 



Determines whether permanent errors occurred for SAM 

subroutines. 
Determines whether EOF condition exists for SAM 

subroutines. 
Performs diagnostic tests to determine type of error that 

occurred. 
Prepares, for BSAM, parameters to be passed to user SYNAD 

routine, if one exists, or to ABEND routines for ail 

permanent errors associated with DCB. 
Prepares, for QSAM, parameters to be passed to user 

SYNAD routine, if one exists, or performs error options 

as specified in DCBEROPT field. 
For QSAM or BSAM (if an EOV condition exists for input 

or output or if entered by the user, transfers control to 

basic volume switching routines to determine whether 

more data exists for input or more space is available 

for output. 
Note: if SYNAD routine is entered by a CHECK, GET, or PUT 
error routine and the user returns to that routine, EOV is entered 
a second time to perform recovery procedures for BSAM or QSAM. 



if additional error 
checking for QSAM 
or chained scheduling 
restart of I/O for 
BSAM 



Input: • Register contains I OB address from SAM subroutines 
• Register 1 contains DCB address 



Output: 

Error 
Exits: 



Parameters passed back to access method modules 
IFG0550P with internal ABEND code 174 



( Exit ) 



SVC 3 

(if to SAM subroutines) 
IFG0551D Figure 71 

(if to issue write-to-programmer message 

and ABEND code) 
IFG0551F Figure 72 

(if to read JFCB) 



IFG0551B 

SYNAD Executor Function 



Determines whether permanent errors occurred for SAM 

subroutines (CHECK, GET, PUT r CNTRL). 
Performs diagnostic tests to determine type of error that 

occurred. 
Prepares, for QSAM, parameters to be passed to user's 

SYNAD routine, if one exists, or performs error options 

as specified in DCBEROPT field 



to continue SYNAD 
executor function 



Input: 
Output: 



Standard 

Parameters passed back to access method modules 
for CHECK, GET, and PUT error routines 



C 



Exit 



J 



SVC 3 

(if to SAM subroutines) 



Input: 



Q Entry ) IGC0005E Figure 71 



IFG0551D 

SYNAD Executor Function 



Writes one- or two-line message on SYSOUT data set. 
Issues ABEND after message is printed, if caller requests, or 
returns to EOV operation 



C E*" ) 



IGC0005E Figure 71 
(to return to EOV executor) 



Output: 



Register 1 points to parameter area constructed as 

follows: 

Bytes and 1 contain ABEND code 

Byte 2 contains return code to be printed in message 

If either ABEND code or return code is 0, message 

is not printed 
Byte 3 is not used 
Bytes 4-7 contain pointer to calling routine's 8-byte 

ID, if return is requested, and otherwise contain 

zeros 
Bytes 8-1 1 contain pointer to calling routine's 

formatted message, if second line requested,* 
Otherwise, second line contains zeros 
Register 2 contains address of DCB on which error 

occurred 
Register 4 contains either pointer to DCB work 

area or zeros 

One- or two-line message containing ABEND code, 
return code, jobname, stepname, ddname, 
DSNAME, and message passed by calling program 



Figure 71 (Chart 1 of 3). EOV Initialization Processing 
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( Entry "*) 



IGC0003A Figure 71 

IGC0005E Figure 71 

IFG0552X Figure 75 

IFG0552V Figure 74 



IFG0551F 

EOV Initial-Read JFCB Function 



Zeros 536 bytes of main storage to be used by EOV. 

Builds I/O control blocks in O/C/EOV work area. 

Reads JFCB into work area. 

Calculates number of devices allocated to data set. 

Loads addresses of control blocks into registers (see Output). 

Constructs an XCTL work area. 



to initialize 
work area 



Input: 



Register 1 contains address of DCB being processed 
when EOV condition was detected 



Output: • JFCB read into O/C/EOV work area 

• Registers RDCB, RCORE, RDEB, and RTIOT set 
up 



External 
References: 



Error 
Exits: 



IECPCNVT, IEFQCNVT,and IECOSCR1 



IFG0550P with internal ABEND code 143 or 145 



Exit 



J) IFG0199R Figure 91 

(to initialize optional trace) 



IFG0551H 



EOV Initial— Work Area Initialization Function 



Determines first three volume serial numbers of data set 
in O/C/EOV work area to be processed and saves them in 
DXVOLSER. 

Determines device type used. 



Input: 
Output: 



Standard 
Standard 



to read 

JFCB extension 

block 



IFG0551J 

EOV Initial-JFCB Extension Function 



Reads JFCB extension (s) into work area if more than five 
volume serial numbers required; only first 94 bytes of 
JFCB extension (s) are read into work area. 

Determines three volume serial numbers to be processed 
and saves them in DXVOLSER 



Input: 



Output: 



• Register 1 contains address of DCB being processed 
when EOV condition was detected 

• Register 6, for direct-access devices only, contains 
zeros unless device is IBM 2321 data cell drive. If 
2321 , contains pointer to DCELBBNR field in 
UCB 

• Register RUCB contains pointer to UCB, even for 
2321 

• 94 bytes of JFCB extension (s) read 

• RUCB contains, if 2321, pointer to DCELBBNR field 
in UCB 



Exit 



Error 
Exits: 



IFG0552R Figure 71 

(to process standard trailer labels for tape 

input) 
IFG0551P Figure 77 

(to process standard trailer labels for tape 

output) 
IFG0551T Figure 77 

(to determine volume disposition for NL tape 

output) 
IFG0554B Figure 82 

(to reposition direct-access volumes for 

spanned record processing) 
IFG0553P Figure 81 

(to process direct-access input) 
IFG0554P Figure 84 

(to process direct-access output) 
IFG0554R Figure 85 

(to process IBM 2321 data cell drive 

output) 
IFG0552X Figure 75 

(to process end-of-data conditions and 

unit record volumes from IFG0551H 

only) 
IFG0554N Figure 84 

(to process FEOV direct-access output) 
IFG0552Z Figure 75 

(to process concatenated tape volumes) 
NSLETROL 

(to process user's nonstandard output trailer labels) 
NSLETRLI 

(to process user's nonstandard input trailer 
labels) 



IFG0550Pwith internal ABEND code 143 or 197 



Figure 72 (Chart 2 of 3). EOV Initialization Processing 
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( E"try ^ IFG0552H Figure 79 

IFG0555H Figure 87 

IFG0553Z Figure 82 

IFG0554B Figure 82 

IFG0554D Figure 82 

IFG0553H Figure 76 

IFG0552X Figure 75 

IGG0551 A (alias entry for access method executors) 



IFG0551L 

EOV Access Method Executor Function 



Determines access method to be used. 



if chained 
scheduling 
specified 



C Exit ) SVC 3 return to caller 



IFG0551N 

EOV Access Method Executor Function 



Honors all previous requests, for data sets processed using 
chain scheduling, that were purged. 



( Exit ) SVC 



3 return to caller 



Input: • Standard 

• User's DCB and IOB 



Output: Standard 



Input: • Standard 

• User's DCB and IOB 



Output: Standard 



Figure 73 (Chart 3 of 3). EOV Initialization Processing 



1 24 Open/Close/EOV Logic 



( Entry 



^ IFG0551H Figure 72 
IFG0551J Figure 72 
NSLETRLJ 



IFG0552R (IGG0550B) 

EOV Tape Input— Standard Trailer Label Function 

EOV Tape Input— Volume Disposition Function 



Positions to and reads trailer label 1 (EOV1, EOF1, or HDR1). 
Compares, if DCB contains device-dependent section, block 

count in DCB to block count in label. 
Passes control to user's block count exit routine by way of 

SYNCH macro if block counts are unequal. 
Positions, if user labels are not to be processed, tape to 

logical end of data set. 
Determines whether EOF has occurred. 
Issues SVC 91 and determines if EOV rather than EOF, 

whether SMF is active. 



to process user 
trailer labels 



Input: 



Output: 



Error 
Exits: 



Standard 



• Tape volume positioned to logical end of data set 

• DXCCW7+4 of DCB work area contains UCB file 
sequence count and number for all exits 

• Register RET contains branch table offset of at 
exit to IFG0552Vand IFG0552X,and branch 
table offset of 4 at exit to IFG0202H (IFG0553B) 



IFG0550P with internal ABEND code 146, 147, 148, 
150, or 180 



( Exit ") IFG0552V Figure 74 

(to position volume) 

IFG0552X Figure 75 

(if EOF condition) 
IFG0202H Figure 66 
(to process SM F data set with 
IFG0553B al alias entry for EOV) 



IFG0552T 

EOV Tape Input— Standard Trailer Label Function 

EOV Tape Input— Volume Disposition Function 



Obtains 168-byte user label work area from main storage. 
Reads label and passes control to user by way of SYNCH 

macro. 
Reads, if user passes return code 4, additional labels until 

either maximum number of labels has been read or 

user indicates that processing is tojerminate. 
Positions tape to logical end of data set. 
Determines whether EOF has occurred. 
Issues SVC 91 and determines, if EOV rather than EOF, 

whether SM F is active. 



to position 
volume 



Input: Standard 

Output: Same as IFG0552R above 



Error 
Exits: 



IFG0550P with internal ABEND code 149 or 150 



( Exit ) 



IFG0552X Figure 75 
(if EOF condition) 

IFG0202H Figure 66 
(to process SMF data set with 
IFG0553B as alias entry for EOV) 



( Entry } IFG0552R Figure 74 

IFG0552X Figure 75 

IFG0202H Figure 66 



IFG0552V 

EOV Tape Input— Volume Disposition Function 

EOV Tape Input— Volume Positioning Function 



Sets to zeros, if DCB contains tape-dependent section, block 

count in DCB. 
Increases or decreases volume sequence count in DEB. 
If DCB is being processed for RDBACK and next volume will be 

last volume, sets file sequence number being saved in 

work area to file sequence count being saved in work area. 
Positions volume according to any FEOV options: 

REWIND — rewind tape volume 

LEAVE — position tape to logical end of data set 
Positions tape according to any positioning option specified 

in OPEN macro: 

REREAD — position tape to logical beginning of data set 

LEAVE — position tape to logical end of data set 
Positions tape, if none of above options are specified or if 

OPEN positioning option is DISP,as follows: 

passed data set — positions tape to logical end of data 

set 

not passed data set, public volume — rewinds tape 

not passed data set, private volume — unloads tape and 

issues message 
Increases UCB file sequence count and number by 1 each 

if tape positioned to physical end of data set. 
Updates, if there are concatenated data sets, DCB, DEB, 

and UCB to reflect concatenated data set. 



Input: 



Standard 



Output: • On exit to IFG0551F 

RTIOT contains address of TIOT entry for 
concatenated data set 

RUCB contains address of UCB for concatenated 
data set 

DCBTIOT contains TIOT offset for concatenated 
data set 

DEBTVLSQ contains 1 to indicate first volume 
of data set 

DEBUCBAD contains address of UCB in 3 low- 
order bytes 

SRTEDMCT contains to indicate no data set 
open on unit 
• On exit to I FG0552P 

DXRETMOD contains ID/TTR of IFG0552Z to 
indicate no concatenation or ID/TTR of 
IFG0551 F to indicate concatenation 



Error 
Exits: 



IFG0550Pwith internal ABEND code 151,152, 
153, 154, or 155 



IFG0551F Figure 72 
(to process concatenated data sets) 



IFG0552Z Figure 75 
(to mount next volume 

IFG0552P Figure 80 
(to issue message) 



Figure 74 (Chart 1 of 3). EOV Tape Input Processing 
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( Entry ) 



IFG0551H Figure 72 

IFG0552R Figure 74 

IFG0552T Figure 74 

IFG0553P Figure 81 



IFG0202H Figure 66 
IFG0199R Figure 91 
IFG0553H Figure 76 



IFG0552X 

EOV End-of-data Function 



Determines whether EOD has been reached or whether there 

are concatenated data sets to be processed. 
If EOD has been reached, places user's EOD routine address 

into old I/O PSW, sets return indicators, and exits to user 

by issuing SVC 3. 
If concatenated data sets with unlike attributes, constructs a 

single-entry close parameter list and XCTL work area in 

SVRB extended save area and issues XCTL to go to Close 

operation. 
If concatenated data sets with like attributes, determines 

whether SMF records are to be written. 
If entered from IFG0551H with concatenation bit (bit 2) in 

DCBOFLGS field set to 1 , sets return indicators and passes 

control to user by issuing SVC 3 or to access method 

executor to read concatenated data set. 
Note- this entry can occur only when concatenated data set 
resides on a unit record device. 



( Entry ) 



IFG0551L Figure 73 

(to continue processing concatenated data 

set if access method is BSAM or QSAM 

and data set resides on unit record device) 
IFG0551F Figure 79 

(to reinitialize for concatenation) 
IFG0552V Figure 74 

(to position tape at EOF if concatenation 

is taking place) 
IFG0202H Figure 66 

(to process SMF data set through alias 

entry IFG0553Bfor EOV) 
IGC00020 Figure 60 

(to close data set and, in case 

of concatenation with unlike 

attributes, to then reopen it to 

continue concatenation) 
SVC 3 (return to caller) 

IFG0551J Figure 72 

IFG0553D Figure 76 

IFG0552V Figure 74 

IFG0553H Figure 76 

IFG0552P Figure 80 Error 

IFG0551H Figure 72 Exits: 



Input: • Standard 

• Register RET contains 

Oto indicate entry from IFG0552R, 
IFG0552T,or IFG0553P 

4 to indicate return from IFG0202H 

8 to indicate return from IFG0199R 
12 to indicate entry from IFG0553H 
16 to indicate entry from IFG0551H 

• DCBOFLGS bit 2 set to 

to indicate entry from problem determination 

1 to indicate concatenation taking place 

Output: • Exit to user's EOD routine 

Register RF contains 4 if exit taken and EOV rather 

than EOF label was read; otherwise, RF contains 
DCBOFLGS contains X'CO' (for BSAM only) to 

indicate no more input to take place; bit 7 set to 

to indicate that processing by EOV has been 

completed 
ECB of second IOB chained from DCB contains X'49' 

(for QSAM only) to indicate end of input 

• Exit to IFG0551F 

Register RTIOT contains address of concatenated 

data set's TIOT entry; RUCB contains address of 

concatenated data set's UCB 
DCBOFLGS contains X'20' to indicate concatenation 

taking place 
DCBTIOT contains TIOT offset for concatenated data 

set 
SRTEDMCT decreased by 1 for devices other than data 

cell 
DCELDMCT decreased by 1 for 2321 
DEBTVLSQ set to 1 for devices other than direct- 
access 
DEBUCBAD contains address of UCB in 3 low-, 

order bytes 
DEBBINUM contains bin number for 2321 data cell 

drive 
ExittolFG0552V 
DCBOFLGS contains X'20' to indicate concatenation 

taking place 
Exit to IFG0202H 

Register RET contains branch table offset of 4 
DXRETMOD contains ID/TTR of IFG0552V for 

tape data set or I FG0552X for direct data set 
Exit to IGC00020 
Register 1 contains address of 1-word parameter 

list that contains address of DCB being processed 



IFG0550P with internal ABEND code 174 or 176 



External 
References: SVC 3 



IFG0552Z 
EOV Tape Input-New Volume Mounting Function 



If volume positioning function has issued a REWIND, waits 

for rewind to be completed. 
Shifts UCB address in TIOT one word to left so that search 

for available unit will not begin with unit known to have 

mounted volume. 
Searches all allocated units for next required volume. 
If an empty unit is not available, selects unreserved volume, 

unloads volume, and issues message about disposition of 

volume. 
Tries to read volume label 
If label is read and AL or SL was specified, verifies serial 

number. 
If serial number is not correct or if no volume label was read, 

issues message, unloads volume, and repeats mounting 

procedure. 
If no volume label was read and NL or NSL was specified, 

assumes volume to be correct one and rewinds volume to 

load point. If leading tape mark was specified, leaves tape 

at interblock gap following tapemark, if tapemark was read. 

If volume label was read, issues demount message, unloads 

volume, and repeats mounting procedure. 



Input: 
Output: 



Error 
Exits: 



Standard 

Message IEC001A M, IEC002E K,or IEC003E R 

Register RET contains branch table offset 

indicates normal entry to position to specified 

data set 
4 indicates wait for completion of a rewind, then 

position to data set 
SRTEDMCT bit set to to indicate that no mount 

messages are outstanding 
SRTESTAB contains X'04' to indicate that AL tape 

has been verified 
SRTESTAT contains X'01' to indicate that SL tape 

has been verified 



IFG0550P with internal ABEND code 
1 55, 1 56, 1 57, 1 58, 1 59, 1 60, or 1 61 



"} IFG0552P Figure 80 
-^ (to issue mount, keep, or 

retain message) 



IFG0553D Figure 76 
(to check if file-protect ring 
needed and to position to data set) 



Figure 75 (Chart 2 of 3). EOV Tape Input Processing 



1 26 Open/Close/EOV Logic 



( Entry ") 



IFG0552Z Figure 75 
IFG0552P Figure 80 



IFG0553D 

EOV Tape Input— New Volume Mounting Function 

EOV Tape Input-Data Set Positioning Function 



Waits for completion of rewind of an NL or NSL volume 
following volume verification process. 

Reads, if DCB is being processed for IN OUT, sense bytes to 
determine whether tape is file-protected. Issues, if tape is 
file-protected, file-protect message to determine whether 
file-protect ring is required, in which case tape is unloaded 
and volume verification is repeated. 

Positions AL, NL, and SL tapes to specified data set. 



to mount- 
ahead any 
additional 
volumes or 
to exit from 
EOV for data 
set on NL tape 



Input: 



Standard 



Exit 



IFG0552Z Figure 75 
(to verify volume) 

NSLEHDRI 

(to user's NSL routine to perform 
volume and data set verf fcatlon 
and positioning for NSL tape) 



Output: • Exit to IFG0552Z: 

Register RET contains branch table offset of 12 
SRTEVOLI contains indicating that volume must 

be verified again 
UCBFL2 contains X'40' to indicate unit is not ready 

• ExittolFG0553H: 

Register RET contains branch table offset 24 

• Exit to user's NSLEHDRI: 

Register RET contains branch table offset 20 for 

return to IFG0553H 
SRTEFSCT and SRTEFSEQ have been updated to 

reflect logical and physical position of data set 
SRTEDMCT has been set to 1 



Error 
Exits: 



IFG0550P with internal ABEND code 162, 163, 193 



to verify name of data set on 
AL or SL tape 



IFG0553F 

EOV Tape Input— Standard Header Label Function 



Reads file label 1 and verifies that it is either HDR1 , EOV1 , 
or EOF1. 

Compares last 1 7 characters of data set name in JFCB to 
data set name in file label 1. If names are not identical 
and data set is member of generation data group, 
unqualified data set name, generation number, and version 
number are all verified separately. 

Converts, if DCB contains tape-dependent section, block 
count from label to binary and places it in DCB. 

Processes input user header labels. 

Positions tape to first data record. 



to test for 
data set security 



Input: 



Standard 



Output: • DCBBLKCT contains block count found in file 
label 1 
• Tape is positioned to first data record 

Error 

Exits: IFG0550P with internal ABEND code 164, 165, 191, 

195, or 196 



Entry 



) IFG0552P 
-' NSLEHDRI 



Figure 80 



IFG0553H0GG0550D) 

EOV Tape Input— Standard Header Label Function 

EOV Tape Input— Next Volume Mounting Function 



Tests, for data sets on A L or SL tape, for data set security. 
Shifts UCB addresses in TIOT word to left so that search for 

available unit does not begin with unit known to have 

mounted volume. 
Searches all allocated units for next required volume. 
Selects, if an empty unit is not available, first unit with 

demountable volume and unloads volume. 
Releases resident routine main storage work area (ECBLIST). 
Releases O/C/EOV work area if access method is EXCP, 

and exits to user. 
Transfers control, if access method is BSAM or QSAM, to 

access method executor. 



Input: 
Output: 



Exit 



( Exit ) User (upon 
completion 
of EOV 
processing 
if access 
method 
is EXCP) 



IFG0195T Figure 54 

(to verify password) 
IFG0552X Figure 75 

(to issue ASCII accessability 

message and then close data set) 
IFG0551L Figure 73 

(to finish EOV processing if access 

method is BSAM or QSAM) 
IFG0552P Figure 80 

(to issue mount, keep, or retain 

message) 
IFG0199R Figure 91 

(to terminate optional trace 

facility) 



Error 
Exits: 



Standard 

Exit to IFG0195T: 

Register RET contains branch table offset of 

DCBOFLGS bit 2 set to to indicate concatenation 

has been completed 
DEBFLGS1 bit set to to indicate that password 

has not previously been verified 
ExittolFG0552X: 

Register RET contains branch table offset of 12 
Exit to IFG0551L: 

Register RES no longer points to resident routine 
DCBOFLGS bit 2 set to to indicate concatenation 

has been completed. 
ExittolFG0199R: 

Register RET contains branch table offset of 12 
Register RWTGC contains 1 to indicate, upon return 

from trace termination, that trace facility was 

active 
Exit to user: 
DCBOFLGS bit 2 set to to indicate that concatenation 

has been completed; bit 7 set to to indicate 

that processing by EOV has been completed 

IFG0550P with internal ABEND code 193 



Figure 76 (Chart 3 of 3). EOV Tape Input Processing 



Section 3: Program Organization 127 



C Entry ) IFG0551H Figure 72 
I IFG0551J Figure 72 



IFG0551P 

EOV Tape Output— Trailer Label Function (EOV1) 



Writes tapemark after data records. 

Constructs trailer label 1 from information in JFCB, DCB, 

and UCB. 
Writes trailer label 1. 
Translates labels if ASCII specified. 



to process trailer label 
preparation 



IFG0551R 

EOV Tape Output -Trailer Label Function (EOV2) 

EOV Tape Output— User Label Interface Function 



Constructs trailer label 2 from information in JFCB and 

TIOT. 
Translates label if ASCII specified. 
Writes trailer label 2. 
Gets main storage for an area to be used as 72-byte work 

area, 80-byte label buffer, and 16-byte parameter list. 
Tranfers control if user labels are specified, to processing 

program's user label routine via SYNCH macro. 



to process volume 
disposition 



( Entry ) 



IFG0551H 
IFG0551J 
NSLETRLO 
IFG0202H 



Figure 72 
Figure 72 

Figure 66 



IFG0551T0GG0550F) 

EOV Tape Output— Volume Disposition Function 



Writes final tapemark on volume. 

Positions volume as specified by processing program or task 
scheduler. 



to process 
new volume 



Exit 



J) IFG0202H Figure 66 

(to process SMF data set with alias 
IFG0553B as entry for EOV) 
IFG0552P Figure 80 



(to issue keep or retain message) 



IFG0551V 

EOV Tape Output-New Volume Function 



Determines unit to use with next output tape. 

Unloads tape on next unit. 

Issues mount message for specified volume. 



Input: 
Output: 

Error 
Exits: 



Input: 
Output: 



External 
References: 



Error 
Exits: 



Input: 
Output 



Error 
Exits: 



Input: 
Output: 



Error 
Exits: 



CjElD 



IFG0552P Figure 80 
(to issue message) 

IFG0551X Figure 78 
(to verify label) 



Standard 

Trailer labels written 

IFG0550P with internal ABEND code 141 



Standard 



Trailer labels written 
User label written 



SYNCH macro 



IFG0550P with internal ABEND code 141 



Standard 

• Final Final tapemark on volume 

• Disposition messages to operator 

IFG0550P with internal ABEND code 144 



Standard 

• Reordered TIOT UCB address list with address 
of UCB to be used at start of list 

• Retain message for tape on next unit, if not 
loaded 



IFG0550P with internal ABEND code 142 or 184 



Figure 77 (Chart 1 of 4). EOV Tape Output Processing 



1 28 Open/Close/EO V Logic 



C Entry ) 



IFG0551V 
IFG0552J 
IFG0552L 
IFG0552N 



Figure 77 
Figure 79 
Figure 79 
Figure 80 



IGG0550P (alias entry from user routines) 



IFG0551X0GG0550P) 

EOV Tape Output— Label Verification Function 



Reads and verifies volume label on new volume. 
Checks for file protection. 



to verify 
label 



( Exit ) 



IFG0552H Figure 79 

(to perform mount-ahead or to 

exit from EOV) 
IFG0552J Figure 79 

(to destroy label) 
IFG0552N Figure 80 

(to obtain correct volume) 
IFG0552P Figure 80 

(to issue file-protect message) 



IFG0551Z 



EOV Tape Output— Label Verification Function 



Checks density of existing tape labels against specified 

density. 
Unloads, if ASCII tape is not accessible, current volume 

and scratch tape is requested. 
Determines whether NSL tapes are to be processed. 



to rewrite 
volume label 



IFG0552J Figure 79 

(to destroy label) 
NSLEHDRO 

(to user's routine for NSL) 
IFG0552N Figure 80 

(to obtain correct volume) 



( Entry ) IFG0552P Figure 80 



IFG0552B 

EOV Tape Output-Label Rewrite Function (VOL 1 ) 



Verifies that expiration date passed. If not, or if volume is 
security-protected and JFCB does not specify security, 
mounts scratch volume and returns to load operation 
for verification. 

Rewrites volume label. 



to write 
header 
label 1 



Q Exit "") IFG0552P Figure 80 
(to issue message) 
IFG0552N Figure 80 
(if tape I/O error, volume security- 
protection error, or expiration date 
not passed and, on return from 
I FG0552P, operator replied M) 



IFG0552D 

EOV Tape Output-Label Rewrite Function (HDR1) 



Waits for completion of volume label write. 

Constructs header label 1 from information in JFCB, DCB, 

and UCB. 
Writes header label 1 . 



Input: 

Output: 

Error 
Exits: 



Input: 
Output: 



Error 
Exits: 



Input: 
Output: 



Input: 
Output: 



Standard 

Message to operator about incorrect volume 

IFG0550P with internal ABEND code 144 



Standard 

Message to operator about incorrect volume 

IFG0550P with internal ABEND code 144 



Standard 

Label rewritten and verified 



Standard 

Header label 1 written 



IFG0552F Figure 79 
(to write user header labels) 

IFG0552N Figure 80 
(to mount new scratch tape) 



Figure 78 (Chart 2 of 4). EOV Tape Output Processing 



Section 3 : Program Organization 1 29 



( Entry ) IFG0552D Figure 78 



IFG0552F 



EOV Tape Output-Label Rewrite Function (HDR1, UHL) 



Waits for completion of header 1 label. 

Constructs header label 2 from information in JFCB and 

TIOT. 
Writes header label 2. 
Goes, if user labels are specified, to problem program's user 

label routine via SYNCH macro. 
Writes tapemark after header labels. 



to exit 
from EOV 



Input: 
Output: 



Standard 

Header label 2 written 

Tapemarks written following header labels 



Exit 



]) IFG0552N Figure 80 

(to mount new scratch tape) 



C Entry ) (FG0559R Figure 91 

■ IFG0551X Figure 78 

IFG0552P Figure 80 



IFG0552H 



EOV Tape Output— Exit Function 



Writes updated JFCB and JFCB extension block into original 

disk space on SYS1 .SYSJOBQE. 
Issues mounting instructions to operator for next volume. 
Frees 536 bytes of O/C/EOV work area, if no access method 

executor required. 



Input: 
Output: 



Error 
Exits: 



Standard 

Updated JFCB and JFCB extension 

IFG0550P with internal ABEND code 143 



c 



Exit 



( Entry ) IFG0551X Figure 78 

■ IFG0551Z Figure 78 

IFG0552P Figure 80 



J IFG0552P Figure 80 

(to issue message) 
IFG0559R Figure 91 

(to terminate optional trace routine) 
IFG0551L Figure 73 

(to go to access method executors) 
Exit if EXCP used 



IFG0552J(EMODVOL1) 

EOV Tape Output-Label Destroy (EMODVOL1) Function 



Destroys standard labels for data sets requesting nonstandard 

labels or no labels. 
Checks for security protection. If protected, does not 

destroy label. 
Checks for date retention. 



to create 
label 



Exit 



IFG0552N Figure 80 
(to process NSL tapes) 

IFG0551X Figure 78 
(to verify label) 

IFG0552P Figure 80 
(to issue message) 



IFG0552L 

EOV Tape Output— Label Create Function 



Checks with operator for permission to create label for 

data set requesting new label. 
Writes standard label and tapemark. 
Translates, if operator has given permission to use volume, 

ASCII tapes before they are written. 



Input: 
Output: 



Standard 
Labels destroyed 



Input: 
Output: 



Standard 

Standard label and tapemark written 



Exit 



_J IFG0551X Figure 78 
(to verify label) 
IFG0552N Figure 80 
(to process NSL) 



Figure 79 (Chart 3 of 4). EOV Tape Output Processing 



1 30 Open/Close/EOV Logic 



( Entry ) IFG0551X Figure 78 

IFG0552B Figure 78 

IFG0552D Figure 78 

IFG0552F Figure 79 

IFG0552J Figure 79 

IFG0552L Figure 79 

IFG0552P Figure 80 



IFG0552N (IGG0550H) 

EOV Tape Output-Error Recovery And Nonstandard Label 

Function 



Issues messages to operator for I/O error and/or to demount 

invalid tape. 
Unloads current tape. 
Requests remount, correct tape, or scratch tape. 



( Exit ) IFG0551X Figure 78 
(to verify label) 



C E"try ) 



IFG0552V 
IFG0552Z 
IFG0553H 
IFG0551T 
IFG0551V 
IFG0551X 
IFG0552B 
IFG0552H 
IFG0552J 



Figure 74 
Figure 75 
Figure 76 
Figure 77 
Figure 77 
Figure 78 
Figure 78 
Figure 79 
Figure 79 



IFG0552P 



EOV Tape Output-WTO Function 



Formats WTO messages with jobname, stepname, unit 

name, and data set name if required. 
Routes message to TSO terminal as required. 



Input: 
Output: 



Standard 

Formatted WTO message 



Input: 



Output: 



Registers RDEB, RCORE,and RUCB 
Formatted WTO messages 



External 

References: SVC 35 



Exit 



IFG0552Z Figure 75 

(to return to new volume mounting) 
IFG0553D Figure 76 

(to new volume mounting) 
IFG0553H Figure 76 

(to return to new volume mounting) 
IFG0551V Figure 77 

(to return to new volume function 
IFG0552B Figure 78 

(to return to label rewriting) 
IFG0552H Figure 79 

(to return to EOV exit) 
IFG0552J Figure 79 

(to return to label destroy function) 
IFG0552N Figure 80 

(to error recovery) 



Figure 80 (Chart 4 of 4). EOV Tape Output Processing 
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( Entry ~) 



IFG0551H 
IFG0551J 
IFG0202H 
IFG0554L 



Figure 72 
Figure 72 
Figure 66 
Figure 83 



IFG0553P 

EOV Direct-Access Input— Initial Function 



Determines whether user labels were specified; if so, reads 

identifier (format 1 ) DSCB. 
Determines whether condition is EOV or EOF. 
Determines volume disposition. 
Determines whether SMF record required. 



to process 
other than 
2321 
device 



to continue 
EOV process 
for 2321 
device 



C Exit J IFG0554L Figure 83 

(to process user trailer labels) 

IFG0552X Figure 75 
(to process EOF) 1 

IFG0202H Figure 66 
(to process SMF records with alias 
IFG0553B entry for EOV) 

( Entry ) IFG0554J Figure 83 



IFG0553R 

EOV Direct-Access Input— Mount Function 



Determines whether volume is already mounted; if not, 
selects a unit and issues appropriate demount and mount 
messages to operator. 

Verifies that correct volume is mounted. 



Exit 



_J IFG0554J Figure 83 

(to issue mount message) 
IFG0553V Figure 81 
(to continue processing) 



( Entry ) IFG0554J Figure 83 



IFG0553T 

EOV Direct-Access Input— Mount Function 



Determines whether volume is already mounted; if not 

selects a unit and issues appropriate demount and mount 
messages to operator. 

Verifies that correct volume is mounted. 



Exit 



_J IFG0554J Figure 83 
(to issue message) 



Q Entry 



£ 



""") IFG0553R 
-^ I FG0554J 



Figure 81 
Figure 83 



IFG0553V 



EOV Direct-Access— Mount Ahead Function 



If additional volumes indicated and unit is available, performs 

mountiahead. 
Reads identifier (format 1 ) DSCB to determine number of 

extents on new volume. 
Checks for data set security. 



Input: • Standard 

• Register RET contains if module entered from 
IFG0551H or IFG0551J, or 4 if entered from 
IFG0553B 

Output: Register RET contains at exit to I FG0553R, 

IFG0553T, IFG0552X,orlFG0554J,or4atexit 
tolFG0553Bor IFG0554J 

External 
References: EXCP 



Error 
Exits: 



IFG0550P with internal ABEND code 175 



Input: Standard 

Output: • Next volume to be processed mounted 

• UCBs in TIOT entry have been rearranged so that 
new unit is in first UCB of TIOT entry 

External 

References: IECPRLTV, EXCP 



Error 
Exits: 



Input: 



IFG0550P with internal ABEND code 166 or 167 



Standard 

Same as IFG0553R 



Output: 

External 

References: IECPRLTV, EXCP 

Error 

Exits: IFG0550P with internal ABEND code 168 or 169 



Input: 



Standard 
Standard 



Output: 

External 

References: IECPCNVT 



Error 
Exits: 



IFG0550P with internal ABEND code 170 



Exit 



_J IFG0553X Figure 82 

(to continue processing) 
IFG0554J Figure 83 
(to issue message) 



Figure 81 (Chart 1 of 3). EOV Direct- Access Input Processing 



1 32 Open/Close/EOV Logic 



Entry 

IE 



"*) IFG0553V Figure 81 
-^ SECLOADA Figure 55 



IFG0553X 



EOV Direct-Access Input— DEB Function 



Reads extension (format 3) DSCB if more than three extents 

on volume. 
Saves old DEB, if EOV occurred on an update data set and 

spanned record was being processed. 

Otherwise, saves contents of old DEB and releases storage 

used for old DEB. 
Removes DEB from DEB chain. 
Constructs new DEB from saved contents of old DEB 

and extents in DSCB(s). 
Places new DEB in TCB DEB chain. 



to exit from EOV 



Input: 



Output: 

External 
References: 



Standard 

New DEB constructed 

IECPRLTV, EXCP 



Entry 

m 



IFG0559R 
IFG0554L 



Figure 91 
Figure 83 



IFG0553Z 

EOV Direct-Access Input— Exit Function 



If concatenated data set is member of a partial data set, 

sets up new TTRs. 
Terminates optional trace facility if GTF was active. 
Releases resident routine work area (ECBLIST) 
Releases storage used as work area if EXCP being used. 



Input: 



Output: 

External 
References: 

Error 
Exits: 



Standard 

Standard 

IECPRLTV, BLDL, EXIT 

IFG0550P with internal ABEND code 171 



C 



Exit 



Entry ) IFG0559R Figure 91 

IFG0554J Figure 83 

IFG0551F Figure 72 

IFG0551H Figure 72 

IFG0551J Figure 72 



IFG0551L Figure 73 
(to access method executors) 

IFG0554L Figure 83 
(to process user header labels) 

IFG0559R Figured 
(to terminate optional trace facility) 

if EXCP used 



IFG0554B 

EOV Direct-Access Input— FEOV Repositioning Function 



Restores old DEB for previous volume. 

Frees storage used by current DEB. 

Decreases data management count on current volume by 1. 

Mounts previous volume and positions volume at beginning 

of spanned record. 
Frees old DEB, if no update to take place. 
Terminates optional trace facility if GTF was active. 
Releases resident routine work area (ECBLIST), 



Input: 



Output: 

External 
References: 

Error 
Exits: 



Standard 

Volume to be processed is mounted 

IECPRLTV, EXCP 

IFG0550P with internal ABEND code 172 



C Exit ) I FG0551 L Figure 73 

(to continue SAM executor processing) 
IFG0559R Figure 91 

(to terminate optional trace facility) 
IFG0554J Figure 83 

(to issue mount message for previous 

volume) 



C Entr V ) IFG0554J Figure 83 

IFG0559R Figure 91 

(to process 2321 device repositioning) 



IFG0554D 

EOV Direct-Access Input— FEOV Repositioning Function 



Decreases data management count on current volume by 1. 
Mounts previous volume and positions volume at beginning 

of spanned record. 
Terminates optional trace facility if GTF was active. 
Releases resident routine work area (ECBLIST). 



Input: 



Output: 

External 
References: 

Error 
Exits: 



Standard 

Volume to be processed has been mounted 

IECPRLTV, EXCP 

IFG0550P with internal ABEND code 173 



Exit 



IFG0551L Figure 73 

(to continue SAM executor processing) 
IFG0559R Figure 91 

(to terminate optional trace facility) 
IFG0554J Figure 83 

(to issue mount message for previous 

volume) 



Figure 82 (Chart 2 of 3). EOV Direct-Access Input Processing 
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( Entry ) 


IFG0554P 
IFG0554V 


Figure 84 






Figure 85 






IFG0554X 


Figure 85 






IFG0554Z 


Figure 86 






IFG0555D 


Figure 86 






IFG0553P 


Figure 81 






IFG0553R 


Figure 81 






IFG0553T 


Figure 81 






IFG0553V 


Figure 81 


w 


IFG0190R 


Figure 89 


IFG0554J 






EOV Direct-Access Message Function 






Issues mount, keep, and retain messages. 






Moves, for 2321 data cell devices only, jobname and 




step name into message. 






Moves, for other than data cell devices, i 


nit name, 




jobname, and step name into message. 





Input: Pointer to message buffer in register 1 ; message 

descriptor code and routine code in register 1 1 

Output: Message written to operator 



Exit 



IFG0554P Figure 84 

(to return to get space for current volume) 
IFG0554V Figure 85 

(to return to next volume to be mounted) 
IFG0554X Figure 85 

(to return to next 2321 volume to be mounted) 
IFG0554Z Figure 86 

(to return to volume disposition) 
IFG0555D Figure 86 

(to return to update JFCB) 
IFG0553R Figure 81 

(to return to mount volume) 
IFG0553T Figure 81 

(to return to mount volume) 
IFG0553V Figure 81 

(to return to mount-ahead) 
IFG0190R Figure 89 

(to complete message with data set name) 



( Entry j 



IFG0553P 
IFG0553Z 



Figure 81 
Figure 82 



IFG0554L0FG0195F) 

EOV Direct-Access Input-User Header/Trailer Label 

Function 



Obtains area in main storage from subpool 250 for use as 
work area, label buffer, and parameter list. 

Reads and presents labels to user until: 
• EOF is encountered; 

user indicates termination of processing through a 

return code; 

maximum number of labels (8) have been processed. 

After user's routine has processed label passed to it, code 
returned by user directs further processing as follows: 
— if there are any remaining labels in label group, 
they are ignored. Normal processing is resumed. 
4 — next label is read into label buffer area and 
control is returned to exit routine. If there are no 
more labels in label group, normal processing is 
resumed. 

8 — label is written from label buffer area. 
Normal processing is resumed.* 
12 — label is written from label buffer area. 
Next label is read into label buffer area and control is 
returned to label processing routine. If no more 
labels, normal processing is resumed.* 



Input: • Register RC - fullword of user's DCB exit list 

entry being processed. 

• Work areas: 

DSCEXTYP - extent type and size of first 
extent in format 1 DSCB. 

DXDAADDR - MBB must already be set 

up for extent and bin number for this volume 
DXDEBMOD-DXDEBNTR - must be set up 
to cover whole volume 

DXVOLMT - used as save area for CCHHR of 
format 1 DSCB from DXCCW7 

• User labels — existing user header or trailer 
labels are read from one track user label extent 
for this data set 

Output: • User labels — if opened for UPDAT, user labels 

may be modified and written back at option of 
user's exit routine 

• Registers and work areas same as in input 



*Only for physical sequential data set opened for UPDAT (UAL, 
UTL), physical sequential data set opened for OUTPUT or 
OUTIN with DISP=MOD (UTL), or direct data set open for 
UPDAT or OUTPUT (UHL, UTL). 



c 



Exit 



3 IFG0553Z Figure 82 

(to exit from EOV processing) 
IFG0553P Figure 81 
(to return to initial processing) 



Figure 83 (Chart 3 of 3). EOV Direct-Access Input Processing 



1 34 Open/Close/EO V Logic 



( Entry 



^ IFG0551H Figure 72 

"^ IFG0551J Figure 72 

IFG0554T Figure 85 



IFG0554N 

EOV IBM 2321 and Direct-Access Output-FEOV Function 



Writes end-of-file mark on direct-access volume that contains 

data set referred to by FEOV macro. 
Writes end-of-file mark on current track and next track if 

data set contains fixed-length records. If data set contains 

variable length records, writes end-of-file mark on next 

track only. 
Writes end-of-file mark only if it fits in an extent allocated 

to this data set. 
Updates identifier (format 1 ) DSC6 with last track used. 
Sets last volume indicator in DSCB to 1 . 



to process output for 
device other than 2321 
data cell drive 



Input: 



Standard 



Output: • End-of-file mark written 
• DSCB updated 



Error 
Exits: 



IFG0550P with internal ABEND code 187 or 190 



c 



Exit 



_J IFG0554R Figure 85 

(to process output for 2321 data 
cell drive) 



( Entry ) 



IFG0551H 
IFG0202H 
IFG0554Z 
IFG0554J 
IFG0551J 



Figure 72 
Figure 66 
Figure 86 
Figure 83 
Figure 72 



IGG0550K (alias entry from DADSM extend routine) 



IFG0554P (IGG0550K) 

EOV Direct-Access Output— Get Space Current Volume 

Function 



Goes to and returns from DADSM extend routine to obtain 
additional space on same or newly mounted volume. 

Determines, if new volume must be used, whether 

specified volume is mounted. If volume is not mounted, 
searches for an available unit on which to mount 
specified volume. 

Exits to SMF routine for processing under following 
conditions: 

• Entry to module is from FEOV 

• Data set is old, all existing extents on volume have 

been used, and there is another volume specified 

• Data set has used all 1 6 extents on current volume or 

there is no more available space on volume 



Input: 
Output: 

Error 
Exits: 



Standard 
Standard 



IFG0550P with internal ABEND code 177, 184, 
186, 186, or 190 



( Exit ) 



IFG0555D Figure 86 

(to update JFCB) 
IGG0553A 

(to DADSM extend routine) 
IFG0554V Figure 85 

(to issue mount message) 
IFG0554Z Figure 86 

(to process volume disposition) 
IFG0554J Figure 83 

(to complete message and issue message) 
IFG0202H Figure 66 

(to process SMF records with alias entry 

IFG0553BforEOV) 
IFG0555F Figure 86 

(to read identifier (format 1) DSCB) 
IFG0554T Figure 85 

(to issue B37 ABEND) 



Figure 84 (Chart 1 of 4). EOV Direct-Access Output Processing 
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( Entry ^ IFG0551H Figure 72 
' IFG0554Z Figure 86 

IFG0554N Figure 84 



IFG0554R (IGG0552K) 

EOV Direct-Access Output— IBM 2321 Get Space Current 
Volume Function 



Goes to and returns from DADSM extend routine to get 
space on same or newly mounted volume. 

Effects volume disposition if no further space can be 
obtained. 

Determines, if new volume must be used, whether specified 
volume is already mounted. If volume is not mounted, 
searches for available unit to mount volume. 



IFG0554J Figure 83 
IFG0551J Figure 72 
IGG0552K 
(alias entry from DADSM extend routine) 



Input: 
Output : 



Error 
Exits: 



Standard 

Standard 

IFG0550P with internal ABEND code 184, 185, 
186, or 190 



( Exit ) IFG0555D Figure 86 

v ' (to update JFCB) 

IGG0553A 

(to DADSM extend routine) 
IFG0554X Figure 85 
(to issue message) 



( Entry ) 



IFG0554Z Figure 86 

(to process volume disposition) 
IFG0554J Figure 83 

(to issue message) 
IFG0555F Figure 86 

(to read DSCB) 



IFG0554P Figure 84 
IGG0550S 

(alias entry for DADSM extend 
routine) 



IFG0554TOGG0550S) 

EOV Direct-Access Output- B37 ABEND Function 



Exits, if QSAM PUT routine, to user and continues processing 
according to return code passed by user: 

— Control is passed back to extend routine to again 

try to obtain space 

1 - Return is made to QSAM and then to user's SYNAD 

exit routine 

2 - An ABEND B37 is issued 

If either SYNAD exit or ABEND B37 is taken, reads 
identifier (format 1 ) DSCB, updates last track written 
on this data set, and writes back DSCB. 



Input: 
Output: 



External 
References: 



Identifier (format 1 ) DSCB may be updated 
with last track used and written back 



CVTPRLTV, user's DCB exit 



C Entry ) 



IFG0554N Figure 84 

(to process FEOV) 
IGG0553A 

(to DADSM extend routines) 



IFG0554J 
IFG0554P 



Figure 83 
Figure 84 



IFG0554V 

EOV Direct-Access Output-Next Volume Mount Function 



Reads and verifies volume label. 
Reads DSCB. 



( Exit ) 



( Entry ) 



IGG0553A 

(to DADSM extend routines) 
IFG0554J Figure 83 

(to issue WTO message) 
IFG0555D Figure 86 

(to exit from EOV) 



IFG0554R 
IFG0554J 



Figure 85 
Figure 83 



IFG0554X 

EOV Direct-Access Output-IBM 2321 Next Volume 
Mount Function 



Reads and verifies volume label for 2321 data cell drive. 
Reads DSCB. 



C Exit ) 



IGG0553A 

(to DADSM extend routines) 
IFG0555D Figure 86 

(to exit from EOV) 
IFG0554J Figure 83 

(to issue message) 



Input: 
Output: 



Error 
Exits: 



Input: 
Output: 



Error 
Exits: 



Label read and verified, and DSCB read 



IFG0550Pwith internal ABEND code 184,189, 
or 190 



Standard 



Label for 2321 data cell volume read and 
verified, and DSCB read 



IFG0550P with internal ABEND code 184, 
186, 189, or 190 



Figure 85 (Chart 2 of 4). EOV Direct- Access Output Processing 
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( Entry 



J IFG0555B Figure 86 

-^ IFG0554J Figure 83 

IFG0554P Figure 84 



IFG0554Z 

EOV Direct-Access Output— Volume Disposition Function 



Updates last block pointer and track-balance field in 
identifier (format 1 ) DSCB. 



to process 
user trailer 
labels 



Input: 
Output: 

Error 
Exits: 



IFG0554P Figure 84 

(to get space on current volume) 
IFG0554R Figure 85 

(to get space on current 2321 device) 
IFG0554J Figure 83 

(to issue message) 



IFG0555B 

EOV Direct-Access Output— User Trailer Label Interface 

Function 



Obtains space in main storage to use as work area and 
buffer area for user labels to be formatted, and to use 
as save area for registers required by EOV for user 
label processing. 

If track was allocated for user labels, gives control to 
user's label construction routine via SVC 1 2. 

If label was constructed on return from user's label 
construction routine, writes label followed by two 
end-of-file marks for UHL or one end-of-file mark for 
UTL. 



Input: 

Output: 

External 
References: 



Standard 
Updated DSCB 

IFG0550P with internal ABEND code 184 or 190 



Standard 

User labels written as requested 

SVC 12, user's header or trailer label routines 



( Exit ) IFG0554Z Figure 86 
(to volume disposition) 



( Entry "^ 



IFG0554J Figure 83 

IFG0554P Figure 84 

IFG0554R Figure 85 

IFG0554V Figure 85 

IFG0554X Figure 85 



IFG0555D 

EOV Direct -Access Output— JFCB Update Function 



Updates, if scratch volume was mounted, JFCB with its 
serial number and writes back updated JFCB. 



to read DSCB 



( Exit ) IFG0554J Figure 83 
(to issue message) 



( E"try ") IFG0554P Figure 84 
I IFG0554R Figure 85 



IFG0555F 

EOV Direct-Access Output- Read DSCB Function 



Reads identifier (format 1 ) DSCB from current volume. 



Input: 
Output: 



Error 
Exits: 



Input: 

Output: 

Error 
Exits: 



Standard 
Updated JFCB 

IFG0550P with internal ABEND code 188 



Updated JFCB and extension (s) are written on 
system residence volume 



IFG0550P with internal ABEND code 190 



C Exit ) IFG0555H Figure 87 
(to process DEBJ 



Figure 86 (Chart 3 of 4). EOV Direct-Access Output Processing 
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( Entry ^ IFG0555J Figure 87 

■ IFG0559R Figure 91 

IFG0555F Figure 86 



IFG0555H 



EOV Direct-Access Output-User Current DEB Function 



Constructs new DEB to include extents acquired and contained in 

updated JFCB. 
Updates M and CCHHR fields in DCB. 
Chains new DEB into DEB/TCB chaining. 
Releases, if data set is being processed using EXCP, O/C/EOV 

work area and returns control to user. Otherwise, passes 

control to EOV executor. 



Input: 

Output: 

Error 
Exits: 



Exit 



J IGG0551L 

(to access method executor) 
IFG0559R Figure 91 
(to initialize optional trace routine) 



IFG0555JOFG0196P) 

EOV Direct-Access Output— User Header/Trailer Label Interface 

Function 



Writes output user header labels for Open and EOV under 
control of user's output user header/trailer label routine, or 
formats user label track if no user label exit routine exists 
and data set is being processed for output and LABEL=SUL. 

Obtains an area of main storage from subpool 250 for use as a 
work area, label buffer, and parameter list. 

If user label track was allocated, gives control to user's label 
exit routine via SVC 12. 

After user's routine has processed label, code returned by user 
directs further processing as follows: 

— No label is written from label buffer area. Normal 

processing is resumed. 
4 — User label is written from label buffer area. Normal 

processing is resumed. 
8 — User label is written from label buffer area. If fewer 

than eight labels have been created, control is 

returned to exit routine which then creates next label. 

If eight labels have been created, normal processing is 

resumed. 



Input: 



Output: 



C Exit ) IFG0555H Figure 87 

Figure 87 (Chart 4 of 4). EOV Direct-Access Output Processing 



External 
References: 



Standard 

DEB constructed 

IFG0550P with internal ABEND code 190 



Register RC — contains fullword of user's DCB 

exit list entry that is being processed 

Work areas: 

RBGRS2-RBGRS1 3 - contains user's registers 

2-13, saved in SVRB register save area 

DSCEXTYP - extent type and size of first 

extent in identifier (format 1 ) DSCB 

DXDAADDR - MB set up for extent 

and bin number for this volume 
DXDEBMOD-DXDEBNTR - set up to cover 
whole volume, and therefore to cover UL extent 
DXVOLMT2 — used as save area by Open only 
to save CCHHR of identifier (format 1 ) DSCB 
from DXCCW7 since DXCCW7 is needed for channel 
program 

User labels constructed by user label exit routine 

are written on user label track allocated for this 

data set 

Registers 2 and 4-14 have the same contents as 

at entry, allowing this module to be called as 

though it were a subroutine 

Work areas: 

DXDAADDR - MBB same as at entry to 

module 



User's input user header or trailer label exit routine 
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Q Entry J from a module requiring WAIT, 
I XCTL, or synchonizing of DCBs 



IFG019RA 

Resident Routine Function 



Performs function of an I/O supervisor for Open, Close, 
and EOV. Allows Open and Close to process parallel 
DCBs in a serial manner within modules. 

Controls processing by issuing all WAITs and XCTLs, and 
by switching DCBs to be processed by modifying registers. 



I Exit j to calling module or next module 
in operation determined by WTG 
table entry 



Input: • Registers: 

— Saved by resident routine in O/C/EOV work area 

1 — Saved by resident routine in O/C/EOV work area 

3 — Base register of calling module 

4 - Address of DCBs O/C/EOV work area 

5 — Address of resident routine 

6 — Where-to-go table address 

9 — Saved by resident routine in O/C/EOV work area 

10 — Saved by resident routine in O/C/EOV work area 

1 1 — Saved by resident routine in O/C/EOV work area 

12 — Saved by resident routine in O/C/EOV work area 

13 — Saved by resident routine in O/C/EOV work area 

14 — Return address to calling module for WAIT and 

DCB synchronization. May be a branch table 
offset for the next module when XCTL issued; 
saved by resident routine in O/C/EOV work area 

• Where-to-go table: 
+ — 8-byte current module name 
+ 6 — 2-byte current module ID 
+16 — Fullword with resident routine work area 

address in low order three bytes 
+31 - (WTGPATHS+1 ) trace routine indicator 



• Where-to-go table DCB entry 
+ 0- 2-byte module ID 

+ 2 - 3-byte module TTR 
+ 5 — DCB work area address 

• O/C/EOV work area: 

JFCBMASK+6 - Trace routine DCB indicator 
DXREG9 — Register save area (register 9) 
DXREGA — Register save area (register 10) 
DXREGB — Register save area (register 1 1 ) 
DXREGC — Register save area (register 12) 
DXREGD — Register save area (register 13) 
DXREGE — Register save area (register 14) 
DXREGO — Register save area (register 0) 
DXREG1 — Register save area (register 1) 
DXRESIND- 

X'80' - WAIT pending 

X'40' - Psuedo-WAIT 
DXECB - ECB 

• Resident routine work area 

— 8 — Prefix for optional trace, address of optional 

trace routine 
+ — Fullword with parameter list address 
+ 4 - Multiple WAIT ECBLIST 



Output: • Registers: 

- Contents of DXREGO 

1 - Contents of DXREG1 

2 — DCB address (from Open/Close parameter list) 

4 — DCB work area address (from WTG table DCB entry) 

7 — Address of current parameter list entry 

8 - Address of current WTG DCB entry 

9 — (Address of optional trace function prefix to the 

Resident routine work area when calling the optional 
trace routine ) 
9 - Contents of DXREG9 

10 - Contents of DXREGA 

11 - Contents of DXREGB 

12 - Contents of DXREGC 

13 - Contents of DXREGD 

14 - Contents of DXREGE 



• Where-to-go table: 

+ — 8-byte module name 
+14 -3-byte TTR 



Work area 
DXREG9 
DXREGA - 
DXREGB - 
DXREGC - 
DXREGD - 
DXREGE - 
DXREGO - 
DXREG1 - 
DXRESIND 
X'80' - 
X'40' - 



Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 



save area (register 9) 
save area (register 10) 
save area (register 1 1 ) 
save area (register 12) 
save area (register 13) 
save area (register 14) 
save area (register 0) 
save area (register 1 ) 



WAIT pending 
Pseudo-WAIT 



Figure 88. Open, Close, and EOV Resident Routine 
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( Entry 



) any module requiring data set name 
or space information on a message 



IFG0190R (IFG0200R) (IFG0550R) 
Display DSNAME WTO Function 



Completes message text by inserting space information 

and/or data set name as required for message. 
Issues messages as follows: 

One WTO for a one-line message 

Two WTOs for a message that cannot be contained on one 

line 
One WTOR for a message that requires a reply 
One WTO followed by one WTOR for a message that 
requires a reply, but cannot be contained on one line 



to module whose ID/TTR 
is in return register 



Input: • Registers: 

R1 contains pointer to last character of message; 
High -order bit indicates reason for entry: 

— DSNAME required in message 

1 — Space information required in message 
RUCB contains pointer to beginning of UCB or 
DCELBBNR field of UCB 

RB contains MCS routing and descriptor codes 

• Work area: 

ID/TTR of return module 

Reply, indicating whether message is WTO or 

WTOR and is DSNAME is to be taken from 

JFCB or work area 

Output: • Message written with reqiured space information 
or data set name 

• Register RB indicates whether one- or two-line 
WTOR was issued: 

— one line 

not blank — two lines 



Figure 89. Write-to-Operator Module 
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( Entry ") 



IFG0190P entry for Open 

I FG0200P entry for Close 

IFG0230P entry for TCLOSE 

IFG0550PentryforEOV 

IGG0196M entry for RDJFCB or access method executors 



IFG0190P, IFG0200P, IFG0230P, IFG0550P, IGG0196M 
ABEND Interpretation and Recovery- Initialization Function 



Issues GETMAIN macro to obtain 128-byte work area to be 

used by remainder of problem determination functions. 
Determines ABEND and return codes from internal code 

passed to it. 
Moves ABEND code, return code, and trace code into work 

area. 
Moves 7-byte message ID for write-to-programmer message 

into work area. 
Moves I D of last module of operation requesting ABEND 

into current WTG table entry. 



Input: • Register contains internal ABEND code 

• DXCALLID contains 2-byte ID of calling module 

• DXRETID contains 2-byte ID of module to which 
control is to be returned, if recovery is to be 
attempted 

Output: Register 1 contains pointer to problem determination 

work area 



IFG0199B (IFG0209B) (IFG0239B) (IFG0559B) 

ABEND Interpretation and Recovery— Write-to-Programmer 

Function 



Issues write-to-programmer message with ABEND code, 
return code, jobname, stepname, DDNAME, unit 
address, and, for data sets on maqnetic tape or direct 
access devices, volume serial number and data set 
name. 



Input: Register 1 points to problem determination work area 

Output: One or two-line message issued to programmer 

giving system and data set information related to 
error condition 



IFG0199D (IFG0209D) (IFG0239D) (IFG0559D) 

ABEND Interpretation and Recovery— ABEND Trace Function 



Traces, using GTRACE macro, data associated with ABEND 
to be issued. 

Determines type of data to be traced by code in problem 
determination work area. 

Traces the following according to code in work area 
04 - DCB work area, IOB, and CCWs 
08 - TIOT entry for current DCB and UCB 
12 - JFCBVOLS from O/C/EOV work area 
16- Tape label from O/C/EOV work area 
20 - JFCBDSNM and tape label from O/C/EOV work 

area 
24 — Direct -access device volume label from O/C/EOV 

work area 
28 - DSCB from O/C/EOV work area 
40 - User DCB pointed to by RDCB 
52 - User DCB and DSCB as in codes 28 and 40 
56 - JFCBELNM from O/C/EOV work area 
60 - Exit list pointed to by DCBEXLST 
64 - DCB and tape label as in codes 16 and 40 
68 - DCB and JFCBDSNM as in codes 40 and 72 
72 - JFCBDSNM from O/C/EOV work area 
76 - JFCBVOLS and DSCB from O/C/EOV work area 



Input: Register 1 points to problem determination work 

area 

Output: Data traced by GTF, if GTF active, and trace code 

passed in problem determination work area 



IFG0199E (IFG0209E) (IFG0239E) (IFG0559E) 

ABEND Interpretation and Recovery— ABEND Exit Function 



Determines whether user has specified DCB exit list address, 
and, if he has, whether one of entries is an ABEND exit. 

Restores, if no ABEND exit is specified. Open, Close, or 
EOV register contents and issues ABEND. 

Passes completion code to operation issuing ABEND. 

Restores, if ABEND exit specified, contents of user's registers 
2-13. 

Loads register 1 with pointer to parameter list and issues 
SYNCH macro to exit to user's exit routine. Upon 
return from user, checks option to delay ABEND, ignore 
it, or attempt to recover from error, if option is valid 
for the particular ABEND, performs specified action 

Attempts, if attempt recovery option chosen by user, recovery 
with new volume serial number(s) supplied by user. 
Updates JFCB and/or extension block(s) with these 
volume(s) starting with current one. Writes back JFCB 
extension blocks, restores register's contents, and returns 
control to resident routine with I D and TTR of next 
module taken from DXRETMOD (in O/C/EOV work 
area). If I/O error is encountered either during reading 
or writing of JFCB extension block, issues write-to- 
programmer message. Gives user's exit routine contiol 
with only iqnore and delav options 

Sets, if user chooses ignore option, DCBOFLGS bit 7 to 0, 
restores register content, and returns control to resident 
routine. Moves ID and TTR of return module to current 
WTG table entry. 

If user chooses a delay option (not valid for EOV), frees 
problem determination work area, moves ABEND code 
and return code to O/C/EOV work area, sets bit in 
JFCB to 1 to indicate delayed ABEND, puts code 4 in 
register 14, and returns control to resident routine. 



Register 1 points to problem determination work 
area 



JFCB and/or extension block(s) are updated, if recovery 
is attempted, with new volume serial number(s) 



f Exit J Exit to calling operation 



Figure 90 (Chart 1 of 2). Problem Determination 
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( Entry ^ initialization of Open, Close, or EOV 



IFG0199R (IFG0209R) (IFG0239R) (IFG0559R) 
Optional Module Trace Initialization/Termination Function 



Tests, if initialization is requested, whether GTF is active 
or starting. If so, trace function is initialized. STAE 
macro is issued to prevent ABEND while trace routine 
is being loaded into storage. If load is successful, 
address of routine is saved at offset -8 of ECBLIST. If 
it is unsuccessful, extra 8 bytes in ECBLIST are freed, 
WTGPATH bit is set to and control is returned to 
module whose ID and TTR are in first WTG table 
entry. If unsuccessful, trace routine is deleted, pointer 
to buffer is stored at offset A of ECBLIST, and control 
is returned to module whose ID and TTR are in first 
WTG table entry. 

Frees, if termination is requested, trace buffer; trace 
routine is deleted, and control is returned to module 
whose ID/TTR are in first WTG table entry. 



Input: 



Output: 



External 
References: 



• Register 4 points to O/C/EOV work area 

• Register 6 points to WTG table 



Address of trace routine and trace buffer are 
stored at offset -8 and -4 of ECBLIST, respectively 



IFG019TR 



( Exit ) 



to module whose I D and TTR are 
in first WTG table entry 



C Entry ) 



resident routine 



IFG019TR (IFG020TR) (IFG023TR) (IFG055TR) 
Optional Module Trace Function 



Traces user's DCB and O/C/EOV work area module- 
by-module throughout Open, Close, and EOV 
operations. 

Gets buffer pointer at offset -4 of ECBLIST. 

Moves DCB pointed to by RDCB to buffer and issues 
GTRACE macro. 

Traces WTG table and current entry from registers 6 and 8 
and returns to resident routine. 



d 



Input: • RDCB points to user's DCB 

• RCORE points to O/C/EOV work area 

• RWTG points to current entry in WTG table 

• RWTGC points to current entry in WTG table 

• RTIOT points to trace parameter list 

Output: DCB, O/C/EOV work area, WTG table entry traced 



it ^ to caller 



Figure 91 (Chart 2 of 2). Problem Determination 
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SECTION 4: DIRECTORY 



Function-to-Module Directory 



This directory lists the functions that are performed in the Open, Close, and EOV operations and 
the functions that are common to these three operations. Knowing the name of a function, you 
can use this directory to learn what modules make up the function and where to find more 
information about the function. 

The directory alphabetically lists the functions performed under each of the following categories: 



Open (Including OPEN TYPE=J) Operation 

Close (Including CLOSE TYPE=T) Operation 

EOV Operation 

Common Functions (Including Problem Determination) 



The column headings and their meanings are: 

Function Name: This name refers to a function in the category it is listed under. 

Method of Operation Figure: This is the number of the figure in the "Method of Operation" 
section where the function is described. 

Module Name: This is the symbolic name of the object module. The microfiche cards contain- 
ing program listings are ordered by object module name. 

Note: The modules listed below have different names in the microfiche and in the SVCLIB. 
They are listed in the directory under both names. 



SVCLIB Name 

IFG0552J 
IFG0193C 



Microfiche Name 

EMODVOL1 
OMODVOL1 



Program Organization Figure: This is the number of the figure in the "Program Organization" 
section where the module is described. 

Alias Name For: If the Module name listed under "Module Name" is an alias name for another 
module name, the name under which the module is described in the "Program Organization" 
section is given here. 



Open (Including Open TYPE=J) Operation 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Open Access Method Executor 
Determination Function 


13 


IFG0196V 


58 




Open Access Method Executor 
Return Function 


13 


IFG0196W 


59 




IGG0190S 


59 


IFG0196W 



Section 4: Directory 143 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Open Direct-Access BPAM 
Concatenation Function 


5 


IFG0195M 


51 




Open Direct-Access DISP=MOD 
Error Recovery Function 


4 


IFG0195E 


52 




Open Direct-Access DSCB To 
JFCB Merge Function 


4 


IFG0195A 


51 




IFG0195J 


51 




Open Direct-Access Expiration 
Date Error Function 


4 


IFG0195G 


52 




Open Direct-Access Input User 
Label Function 


4 


IFG0195F 


53 


IFG0554L 


Open Direct-Access Parallel 
Mounting Function 


5 


1FG0195O 


52 




IFG0195P 


52 




Open Direct-Access Read DSCB 
Function 


4 


IFG0194E 


51 




IFG0195A 


51 




Open Direct-Access Unit 
Selection Function 


4 


IFG0194E 


51 




Open Direct-Access Volume 
Verification Function 


5 


IFG0194A 


53 




IFG0194C 


53 




Open Direct-Access 213 ABEND 
Exit Function 


4 


IFG0195G 


52 




Open Final EXCP Appendage 
Function 


14 


IFG0196X 


59 




Open Final JFCB To DSCB Merge 
Function 


14 


IFG0196W 


59 




IFG0196X 


59 




Open Final SYSOUT Limit 
Function 


14 


IFG0196X 


59 




Open Final Termination 
Function 


14 


IFG0198N 


59 




Open Final Write JFCB 
Function 


14 


IFG0196X 


59 




IFG0198N 


59 




Open Initial Function (OPEN 
and OPEN TYPE=J) 


3 


IGC0001I 


44 




IGC0002B 


44 




Open Initial Volume Serial 
Function 


3 


IFG0193A 


44 




Open Merge DCB Exit Function 


12 


IFG0196L 


56 




Open Merge DCB to JFCB 
Function 


12 


IFG0196M 


56 




Open Merge Direct-Access 
Output User Header Label 
Function 


12 


IFG0196P 


57 


IFG0555J 


IFG0555J 


87 
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Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Open Merge JFCB To DCB 
Function 


12 


IFG0196J 


56 




IFG0196K 


56 




Open Security Initialization 
Function 


11 


IFG0195T 


54 




Open Security Read Password 
(READPSWD) Function 


11 


READPSWD 


55 




Open Security Scratch-Rename 
Interface Function 


11 


SECLOADA 


55 




Open Security Search Function 


11 


IFG0195U 


55 




Open Security TSO Password 
Function 


11 


IFG0195V 


54 




Open Tape Create Label 
Function 


7 


IFG0193E 


47 




Open Tape Destroy Label 
Function 


7 


IFG0193D 


47 




Open Tape Final Common 
Function 


6 


IFG0194I 


46 




Open Tape Initial Common 
Function 


6 


IFG0193B 


45 




Open Tape Label Editor 
Function 


7 


IFG0193C 


47 




OMODVOL1 


47 


IFG0193C 


Open Tape Label Editor 
Interface Function 


7 


IFG0194J 


47 




IGG0190A 


47 


IFG0194J 


Open Tape Mount Verification 
Function 


6 


IFG0194F 


45 




Open Tape No Label 
Positioning Function 


9 


IFG0195C 


49 




Open Tape Nonstandard Label 
Input Interface Function 


9 


IFG0195D 


49 




IGG0190B 


49 


IFG0195D 


Open Tape Nonstandard Label 
Output Interface Function 


9 


IFG0196O 


49 




IGG0190R 


52 


IFG0196O 


Open Tape Standard Label Date 
Protection Function 


10 


IFG0196Q 


50 




Open Tape Standard Label Header 
Label Writing Function 


10 


IFG0196T 


50 




Open Tape Standard Label 
INPUT/MOD Header Label 1 
Function 


8 


IFG0195B 


48 




IFG0195H 


48 




Open Tape Standard Label 
INPUT/MOD Header Label 2 
Function 


8 


IFG0195H 


48 




IFG0195K 


48 
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Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Open Tape Standard Label 
Input User Label Function 


8 


IFG0195N 


48 




Open Tape Standard Label 
Output Security Function 


10 


IFG0196N 


50 




Open Tape Standard Label 
Output User Label 
Function 


10 


IFG0196U 


50 




Open Tape Standard Label 
Positioning Function 


8 


IFG0195B 


48 




Open Tape Standard Label 
Rewrite Volume Label 
Function 


10 


IFG0196Q 


50 




IFG0196T 


50 




Open Tape Volume Mounting 
Function 


6 


IFG0194G 


46 




Open Tape Volume Reference 
Function 


7 


IFG0194D 


45 




Open Tape Volume Verification 
Function 


6 


IFG0194H 


46 





Close (Including Close TYPE=T) Operation 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Close Direct- Access Exit 
Function 


20 


IFG0202E 


64 




Close Direct- Access Input 
User Labels Function 


20 


IFG0202C 


64 




Close Direct-Access Method 
Executor Interface 
Function 


17 


IFG0200W 


63 




IFG0200Y 


63 




IGG0200F 


63 


IFG0200Y 


IGG0200G 


63 


IFG0200Y 


Close Direct- Access Output 
User Labels Function 


20 


IFG0201R 


63 




IFG0202D 


64 




Close Direct- Access Partial 
Release Interface 
Function 


20 


IFG0200Y 


63 




IGG0200F 


63 


IFG0200Y 


IGG0200G 


63 


IFG0200Y 


Close Direct-Access Read DSCB 
Function 


None 


IFG0200V 


63 




Close Direct-Access Update 
DSCB Function 


20 


IFG0200Y 


63 




IGG0200F 


63 


IFG0200Y 


IGG0200G 


63 


IFG0200Y 
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Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


Close Direct- Access Write 
DSCB Function 


20 


IFG0201R 


63 




Close Direct- Access Write 
End-of-File Mark Function 


20 


IFG0202E 


64 




Close Final Restore Data 
Management Function 


22 


IFG0202J 


65 




Close Final Restore System 
Function 


22 


IFG0202J 


65 




IFG0202K 


65 




Close Final Termination 
Function 


22 


IFG0202K 


65 




IFG0202L 


65 




Close Initialization 
Function 


17 


IFG0200V 


60 




IGC00020 1 


60 




Close SMF Data Set SMF 
Record Builder Function 


21 


IFG0202H 


66 




IFG0202I 


66 




I FG0553B 


66 


IFG0202H 


Close Tape Access Method 
Executor Interface 
Function 


17 


IFG0200W 


61 




IFG0200Y 


61 




IGG0200F 


61 


IFG0200Y 


IGG0200G 


61 


IFG0200Y 


Close Tape Nonstandard Label 
Function 


18 


IFG0202B 


62 




IFG0232Y 


62 


IFG0202B 


IFG0556B 


62 


IFG0202B 


IGG0200B 


62 


IFG0202B 


Close Tape Standard Trailer 
Label Function 


18 


IFG0200Z 


61 




Close Tape Standard User Label 
Function 


18 


IFG0202A 


61 




Close Tape Volume Disposition 
Function 


19 


IFG0202F 


62 




IFG0202G 


62 




Close Unit Record/Teleprocessing 
Function 


None 


IFG0200W 


60 




IFG0200Y 


60 




IGG0200F 


60 


IFG0200Y 


IGG0200G 


60 


IFG0200Y 


TCLOSE Direct-Access Input 
Function 


26 


IFG0232D 


69 




TCLOSE Direct-Access Output 
Function 


26 


IFG0232D 


69 




TCLOSE Direct- Access Output 
Trailer Label Function 


26 


I FG0232J 


69 





The final of this module name is actually an EBCDIC 12-punch over a 0-punch. 
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EOV Operation 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


TCLOSE Final Function 


27 


IFG0202U 


70 


IFG0232Z 


IFG0232Z 


70 




TCLOSE Initial Function 


24 


IGC0002C 


67 




TCLOSE Tape Standard 
Trailer Label Function 


25 


IFG0232G 


68 




IFG0232M 


68 




TCLOSE Tape Volume 
Positioning Function 


25 


IFG0232S 


68 





Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


EOV Access Method Executor 
Function 


37 


IFG0551L 


73 




IFG0551N 


73 




EOV Direct-Access Input 
Concatenation/E nd-of - 
Data Function 


37 


IFG0552X 


75 




EOV Direct-Access Input 
DEB Function 


36 


IFG0553X 


82 




EOV Direct-Access Input 
Exit Function 


37 


IFG0553Z 


82 




EOV Direct-Access Input FEOV 
Repositioning Function 


37 


IFG0554B 


82 




IFG0554D 


82 




EOV Direct-Access Input 
Initial Function 


36 


IFG0553P 


81 




EOV Direct-Access Input 
Mount Ahead Function 


36 


IFG0553V 


81 




EOV Direct-Access Input 
Mount Function 


36 


IFG0553R 


81 




IFG0553T 


81 




EOV Direct-Access Input User 
Header/Trailer Label 
Function 


37 


IFG0554L 


83 




EOV Direct-Access Output 
B37 ABEND Function 


38 


IFG0554T 


85 




EOV Direct-Access Output 
Current DEB Function 


None 


IFG0555H 


87 




EOV Direct-Access Output 
Get Space Current Volume 
Function 


38 


IFG0554P 


84 




EOV Direct- Access Output And 
IBM 2321 FEOV Function 


None 


IFG0554N 


84 
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Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


EOV Direct- Access Output 
IBM 2321 Get Space Current 
Volume Function 


36 


IFG0554R 


85 




IGG0552K 


85 


IFG0554R 


EOV Direct-Access Output 
IBM 2321 Next Volume 
Mount Function 


36 


IFG0554X 


85 




EOV Direct-Access Output 
JFCB Update Function 


39 


IFG0555D 


86 




EOV Direct- Access Output 
Next Volume Mount 
Function 


None 


IFG0554V 


85 




EOV Direct-Access Output 
Read DSCB Function 


39 


IFG0555F 


86 




EOV Direct- Access Output 
User Header Label Interface 
Function 


39 


IFG0555J 


87 




EOV Direct-Access Output 
User Trailer Label Interface 
Function 


38 


IFG0555B 


86 




EOV Direct-Access Output 
Volume Disposition 
Function 


39 


I FG0554Z 


86 




EOV End-of-Data Function 


31 


IFG0552X 


75 




EOV Executor Function 




IGC0005E 


71 




EOV Initial JFCB Extension 
Function 


None 


IFG0551J 


72 




EOV Initial Read JFCB 
Function 


30 


IFG0551F 


72 




EOV Initial Device 
Determination Function 


30 


IFG0551H 


72 




IFG0551J 


72 




EOV Initial Work Area 
Initialization Function 


30 


IFG0551H 


72 




EOV Tape Input Data Set 
Positioning Function 


32 


IFG0553D 


76 




EOV Tape Input New Volume 
Mounting Function 


32 


IFG0552Z 


75 




IFG0553D 


76 




EOV Tape Input Next Volume 
Mounting Function 


32 


IFG0553H 


76 




IGG0550D 


76 


I FG0553H 


EOV Tape Input Standard Header 
Label Function 


32 


IFG0553F 


76 




EOV Tape Input Standard 
Trailer Label Function 


31 


IFG0552R 


74 




IFG0552T 


74 




EOV Tape Input Volume 
Disposition Function 


31 


IFG0552R 


74 




IGG0550B 


74 


IFG0552R 



Section 4: Directory 149 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


EOV Tape Input Volume 
Positioning Function 


31 


IFG0552V 


74 




EOV Tape Output Error 
Recovery and Nonstandard 
Label Function 


35 


IFG0552N 


80 




IGG0550H 


80 


IFG0552N 


EOV Tape Output Exit Function 


35 


IFG0552H 


79 




EOV Tape Output Label Create 
Function 


35 


IFG0552L 


79 




EOV Tape Output Label Destroy 
(EMODVOL1) Function 


35 


EMODVOL1 


79 


IFG0552J 


IFG0552J 


79 




EOV Tape Output Label Rewrite 
Function (HDR1) 


34 


IFG0552D 


78 




EOV Tape Output Label Rewrite 
Function (HDR2, UHL) 


34 


IFG0552F 


79 




EOV Tape Output Label Rewrite 
Function (VOL1) 


34 


IFG0552B 


78 




EOV Tape Output Label 
Verification Function 


34 


IFG0551X 


78 




IFG0551Z 


78 




IGG0550P 


78 


IFG0551X 


EOV Tape Output New Volume 
Function 


33 


IFG0551V 


77 




EOV Tape Output Trailer Label 
Function (E0V1) 


33 


IFG0551P 


77 




EOV Tape Output Trailer Label 
Function (E0V2) 


33 


IFG0551R 


77 




EOV Tape Output User Label 
Interface Function 


33 


IFG0551R 


77 




EOV Tape Output Volume 
Disposition Function 


33 


IFG0551T 


77 




IGG0550F 


77 


IFG0551T 


EOV Tape Output WTO 
Function 


None 


IFG0552P 


80 




FEOV Executor Function 


None 


IGC0003A 


71 




SYNAD Executor Function 


None 


IFG0551B 


71 




IFG0551D 


71 















1 50 Open/Close/EOV Logic 



Common Functions 



Function Name 


Method of 
Operation 
Figure 


Module 
Name 


Program 
Organi- 
zation 
Figure 


Alias Name 
For 


ABEND Interpretation and 
Recovery ABEND Exit 
Function 


42 


IFG0199E 


90 




IFG0209E 


90 


IFG0199E 


IFG0239E 


90 


IFG0199E 


IFG0559E 


90 


IFG0199E 


ABEND Interpretation and 
Recovery ABEND Trace 
Function 


42 


IFG0199D 


90 




IFG0209D 


90 


IFG0199D 


IFG0239D 


90 


IFG0199D 


IFG0559D 


90 


IFG0199D 


ABEND Interpretation and 
Recovery Initialization 
Function 


42 


IFG0190P 


90 




IFG0200P 


90 


IFG0190P 


IFG0230P 


90 


IFG0190P 


IFG0550P 


90 


IFG0190P 


IGG0196M 


90 


IFG0190P 


ABEND Interpretation and 
Recovery Write-to- 
Programmer Function 


42 


IFG0199B 


90 




IFG0209B 


90 


IFG0199B 


IFG0239B 


90 


IFG0199B 


IFG0550B 


90 


IFG0199B 


Display DSNAME WTO 
Function 


None 


IFG0190R 


89 




IFG0200R 


89 


IFG0190R 


IFG0550R 


89 


IFG0190R 


Optional Module Trace 
Initialization /Termination 
Function 


43 


IFG0199R 


91 




IFG0209R 


91 


IFG0199R 


IFG0239R 


91 


IFG0199R 


IFG0559R 


91 


IFG0199R 


Optional Module Trace 
Function 


43 


IFG019TR 


91 




IFG020TR 


91 


IFG019TR 


IFG023TR 


91 


IFG019TR 


IFG055TR 


91 


IFG019TR 


Resident Routine Function 


None 


IFG019RA 


88 
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SECTION 5: DATA AREAS 



O/C/EOV Work Area 



Each time a DCB is to be processed by an Open, Close, or EOV operation, a work area from the 
dynamic area of the user's region of main storage is obtained for the DCB by the operation in 
control. When the operation that obtained the work area has finished processing that DCB, it 
frees the DCB's work area. 

The Open, Close, and EOV operations request the storage for each DCB's work area from 
subpool 0. With MVT, however, storage requested by a program operating in supervisor state is 
assigned from subpool 252 in the region allocated to the processing program. 

Subpool 252 is owned by the job step task and is shared by its subtasks. If a task other than the 
job step task abnormally terminates during one of the three operations, the work areas for each 
DCB obtained for that operation are not released, but remain allocated within subpool 252. 
More information about the subpools is in OS Supervisor Services and Macro Instructions, 
GC28-6646. 

The length of the work area depends on the operation being performed. The first 488 bytes of 
the work area are used by all three operations; the EOV operation uses an additional 48 bytes. 
To define the symbolic names of the fields used in the first 464 bytes of the work area, the 
three operations use the IECDSECT macro instruction. 

Many of the fields in the O/C/EOV work area are copies of fields in the JFCB, DSCB, and volume 
label that are associated with the data set being processed. Other fields in the work area (all of 
which are constructed by the Open, Close, and EOV operations to read in the JFCB, DSCB, and 
volume label, and to position tapes) are copies of fields in the DEB, IOB, and CCWs. 

Figures 92, 93, and 94 list the fields of the control blocks and labels that are stored in the O/C/ 
EOV work area during the processing of each DCB. The location relative to the beginning of the 
work area is given in decimal with the hexadecimal equivalent in parentheses (work area + in 
Figure 92 through work area + 218 in Figure 94). The length in bytes of each field is given in 
decimal, in parentheses, with the field name. 

Figure 94 includes a description of the fields listed. These fields are not associated with the 
control block fields and label information as are those in Figures 92 and 93. The fields in 
Figure 94 make up a work area that is used to manipulate other fields in the DCB work area. 
They are used to indicate certain conditions during the processing of the DCB. 

More information about the control block fields is in OS System Control Blocks, GC28-6628. 



Section 5: Data Areas 153 



Offset 


Volume 
Label Fields 


File 
Label 1 
Fields 


File 
Label 2 
Fields 


Identifier 
(Format 1) 
DSCB Fields 


Extension 
(Format 3) 
Key DSCB 
Fields 


Extension 
(Format 3) 
Record 
DSCB Fields 


Message 
Area Fields 


00 (00) 


VOLLABI 
(3) 


FL1LABI 
(3) 




DSCFMTID 
(1) 


DSCBF3C 
(4) 


DSCBFMID 
(1) 


REPLY 
(1) 


01 (01) 








DSCFILSR 
(6) 




DSCBEX5 
(10) 


REPLYADR 
(3) 


03 (03) 


VOLNO 
(1) 


FL1NO 
(1) 












04 (04) 


VOLSERNO 
(6) 


FL1ID 
(17) 


FL2RECFM 
(1) 




DSCBEXTY 
(1) 




REPLYECB 
(4) 


05 (05) 






FL2BLKL 

(5) 




DSCBEXSQ 
(1) 






06 (06) 










DSCBLLMT 
(4) 






07 (07) 








DSVOLSR 
(2) 








08 (08) 














MSGLSTSZ 
(2) 


09(09) 








DSCCREDT 
(3) 








10 (0A) 


VOLSEC 
(1) 




FL2LRECL 
(5) 




DSCBULMT 
(4) 




MCSFLAGS 
(2) 


11 (OB) 


VOLVTOC 
(5) 










DSCBEX6 
(10) 




12 (OC) 








DSCEXPDT 
(3) 






MSGIOSUP 
(3) 


14 (OE) 










DSCBEX2 
(10) 






15 (OF) 






FL2DEN 
(1) 


DSCNOEXT 
(1) 






MSGSER (3) 
MSGINSTR (6) 


16(10) 








DSCBLDBL 
(1) 








17(11) 






FL2JOBD 
(8) 








MSGSER LO 
(1) 


18(12) 








DSCSYSCD 
(13) 








20(14) 














MSGACTN 
(1) 


21 (15) 




FL1FILSR 
(6) 








DSCBEX7 
(10) 




22(16) 














MSGUN 
(3) 


24(18) 










DSCBEX3 
(10) 







Figure 92 (Part 1 of 3). Open, Close, and EOV operations obtain an O/C/EOV work area for each DCB to be processed. 
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Offset 


Volume 
Label Fields 


File 
Label 1 
Fields 


File 
Label 2 
Fields 


Identifier 
(Format 1) 
DSCB Fields 


Extension 
(Format 3) 
Key DSCB 
Fields 


Extension 
(Format 3) 
Record 
DSCB Fields 


Message 
Area Fields 


25(19) 






FL2JSSP 
(1) 










26 (1A) 






FL2STEPD 
(8) 








MSGVOLSR 
(6) 


27 (1B) 




FL1VOLSQ 
(4) 












31 (1F) 




FL1FILSQ 
(4) 








DSCBEX8 
(10) 




33(21) 














MSGTEXT 
(47) 


34 (22) 






FL2TRTCH 
(2) 




DSCBEX4 
(10) 






35 (23) 




FL1GNO 
(4) 












36 (24) 






FL2CNTRL 
(1) 










38 (26) 






FL2BLKA 
(1) 


DSCFILTY 
(2) 








39 (27) 




FL1VNG 
(2) 


FL2RES 
(41) 










40 (28) 








DSCRECFM 
(1) 








41 (29) 


VOLOWNER 
(10) 


FL1CREDT 
(6) 




DSCOPTCD 
(1) 




DSCBEX9 
(10) 




42 (2A) 








DSCBLKL 
(2) 








44 (2C) 








DSCLRECL 
(2) 








46 (2E) 








DSCKEYL 
(1) 








47 (2F) 




FL1EXPDT 
(6) 




DSCRKP 
(2) 








49(31) 








DSCSIND 
(1) 








50 (32) 








DSCSCALO 
(4) 








51 (33) 












DSCBEXA 
(10) 




53 (35) 




FL1FSEC 
(1) 












54 (36) 




FL1BLKCT 
(6) 




DSCLSTAR 
(5) 









Figure 92 (Part 2 of 3). Open, Close, and EOV operations obtain an O/C/EOV work area for each DCB to be processed. 
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Offset 


Volume 
Label Fields 


File 
Label 1 
Fields 


File 

Label 2 
Fields 


Identifier 
(Format 1) 
DSCB Fields 


Extension 
(Format 3) 
Key DSCB 
Fields 


Extension 
(Format 3) 
Record 
DSCB Fields 


Message 
Area Fields 


59 (3B) 








DSCTRBAL 
(2) 








60 (3C) 




FL1SYSCD 
(13) 












61 (3D) 








DSCEXTYP 
(1) 




DSCBEXB 
(10) 




63 (3F) 








DSCLOWLM 
(4) 








67 (43) 








DSCUPPLM 
(4) 








71 (47) 








DSCEXT1 
(10) 




DSCBEXC 
(10) 




73 (49) 




FL1RES 
(7) 












74 (4A) 




FL1RES1 
(6) 












80 (50) 














DSCODE 
(2) 


81 (51) 








DSCEXT2 
(10) 




DSCBEXD 
(10) 




82 (52) 














ROUTCODE 
(2) 


84 (54) 














REPLY 
(12) 


91 (5B) 








DSCNEXT 
(5) 




DSCBNEXT 
(5) 




96 (60) 








DSCCORE 
(4) 

























Figure 92 (Part 3 of 3). Open, Close, and EOV operations obtain an O/C/EOV work area for each DCB to be processed. 
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Offset 


JFCB Fields 


ECB Fields 


IOB Fields 


DEB/DCB Fields 


CCW Fields 


100 (64) 


JFCBDSNM (44) 










144(90) 


JFCBELNM(8) 










152(98) 


JFCBTSDM (1) 










153(99) 


JFCBSYSC(13) 










166 (A6) 


JFCBLTYPd) 










167 (A7) 


JFCBOTTR (3) 
JFCBUFOF (1) 










168 (A8) 


JFCBFLSCH2) 










170 (AA) 


JFCBVLSQ(2) 










172 (AC) 


JFCBMASK (8) 










180 (B4) 


JFCBCRDT (3) 










183 (B7) 


JFCBXPDT (3) 










186 (BA) 


JFCBIND1 (1) 










187 (BB) 


JFCBIND2(1) 










188 (BC) 


JFCBUFNOd) 
JFCBUFRQd) 










189 (BD) 


JFCBFTEKd) 
JFCBFALN (1) 










190 (BE) 


JFCBUFU2) 










192 (CO) 


JFCEROPTd) 










193 (CD 


JFCTRTCH (1) 
JFCKEYLE (1) 
JFCMODE (1) 
JFCCODE (1) 
JFCSTACKd) 
JFCPRTSPd) 










194 (C2) 


JFCDEN (1) 










195 (C3) 


JFCLINCT(3) 










198 (C6) 


JFCDSORG (2) 










200 (C8) 


JFCRECFMd) 










201 (C9) 


JFCOPTCD (1) 










202 (CA) 


JFCBLKSI (2) 










204 (CO 


JFCLRECU2) 










206 (CE) 


JFCNCPd) 










207 (CF) 


JFCNTMd) 










208 (DO) 


JFCRKP (2) 










210 (D2) 


JFCCYLOF (1) 
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Offset 


JFCB Fields 


ECB Fields 


IOB Fields 


DEB/DCB Fields 


CCW Fields 


211 (D3) 


JFCBUFN (1) 










212 (D4) 


JFCINTVLd) 










213 (D5) 


JFCCPRI (1) 










214 (D6) 


JFCSOWA (2) 










216 (D8) 


JFCBNTCSd) 










217 (D9) 


JFCBNVOLd) 










218 (DA) 


JFCBVOLS (30) 










248 (F8) 


JFCBEXTLd) 










249 (F9) 


JFCBEXAD (3) 










252 (FC) 


JFCBPQTY (3) 










255 (FF) 


JFCBCTRI (1) 










256 (100) 


JFCBSQTY (3) 










259 (103) 


JFCBIND3(1) 










260(104) 


JFCBDQTY (3) 










263(107) 


JFCBSPNM (3) 










266 (10A) 


JFCBABST (2) 










268 (10C) 


JFCBSBNM (3) 










271 (10F) 


JFCBDRLH (3) 










274(112) 


JFCBVLCTd) 










275(113) 


JFCBSPTN 










276(114) 




DXECB (4) 








280(118) 






DXIOB (32) 
IOBFLAG1 (1) 






281 (119) 






IOBFLAG2(1) 






282 (11 A) 






IOBSENSE (2) 
lOBSENSOd) 






283 (11 B) 






IOBSENS1 (1) 






284(11C) 






IOBECBPT(1) 






287 (120) 






IOBCSW (8) 
IOBCOMAD (4) 






291 (124) 






lOBSTATOd) 






292 (125) 






IOBSTAT1 (1) 






293(126) 






IOBCNT (2) 






295 (128) 






lOBSIOCCd) 
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Offset 


JFCB Fields 


ECB Fields 


IOB Fields 


DEB/DCB Fields 


CCW Fields 


296(129) 






IOBSTART (3) 






299 (12C) 






lOBWGHTd) 






300(1 2D) 






IOBDCBPT (3) 






307 (134) 






IOBINCAM (2) 






309 (136) 






I0BERRCT(2) 






311 (138) 






DXDAADDR (8) 






315(13C) 








DXDEB (48) 




319(140) 








DXDEBDEB (4) 
DXDCB (48) 




323(144) 








DXDEBOFUD 
DXDEBIRB (4) 




327 (148) 








DXDEBSYS (4) 




331 (14C) 








DXDEBUSR (4) 




335(150) 








DXDEBECB (4) 




339(154) 








DXDEBDCB (4) 




343(158) 








DXDEBAPP (4) 




347(15C) 








DXDEBMOD (1) 
DXDEBUCB (4) 




351 (160) 








DXDEBBIN (2) 




353(162) 








DXDEBSCC (2) 




355 (164) 








DXDEBSHH (2) 




357 (166) 








DXDEBECC (2) 




359(168) 








DXDEBEHH (2) 




361 (16A) 








DXDEBNTR (2) 




363(160 








DXDCBDEB (4) 




367(170) 










DXCCW (96) 
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Offset 


Field Name 


Field Use 


456 (190) 


DXDSNAME (17) 


Save area for the data set name, taken from a tape data set label. This field is used when the data 
set name for a message is not obtained from the JFCB, in which case the message overlays the 
name field of the data set label. 


480 (1A8) 


DXREGSAV (32) 


Register save area which has subfields DXREG9, DXREGA through DXREGE, DXREG0, and 
DXREG1 . It is used by the resident routine to save the contents of registers 9 through 14, 0, 
and 1 (the registers that pertain to the DCB being processed when the resident routine is entered). 


512 (1C8) 


DXRESIND (1) 


Contains resident routine indicators. 


513 (1C9) 


DXIDENT(7) 


Includes the following two fields (DXCALLID and DXRETMOD). 


513 (1C9) 


DXCALLID (2) 


Contains ID of the module that called ABEND interpretation and recovery. 


515 (1CB) 


DXRETMOD (5) 


Includes the following two fields (DXRETID and DXRETTTR). 


515 (1CB) 


DXRETID(2) 


Contains ID of the module to which ABEND interpretation and recovery will transfer control if 
the user has indicated that an error condition is to be ignored. This field may also contain the 
ID of the module to which a common module will transfer control. 

1 . . . .... Resident routine has been requested to issue WAIT macro for I/O started 

during processing of this DCB, but WAIT has not yet been issued. 

. 1 . . .... Processing of this DCB has reached a synchronization point in a module. 

..xx x x x x Reserved bits. 


516 (ICD) 


DXRETTTR (3) 


Contains the TTR (on SYS1 .SVCLIB) of the module described by DXRETID. 


516 (1CD) 


DXABCODE (2) 


Contains the left -justified 12-bit ABEND code to be issued by ABEND interpretation and 
recovery; overlays the first 2 bytes of DXRETTTR. 


518 (1CF) 


DXRETCODE (2) 


Contains a return code issued by ABEND interpretation and recovery to accompany the ABEND 
code in DXABCODE; overlays the last byte of DXRETTTR. 


519 (1D0) 


DXXCTL (8) 


XCTL work area. First word is address of module name at start of WTG table. 


The fields described above are common to Open, Close, and EOV. The following fields are for use by Open and Close. 


527 (1D8) 


DXVOLMT1 (6) 


Contains the volume serial number of the volume to be mounted by the Open operation. 


533 (1DE) 


DXVOLMT2 (6) 


Volume serial number save area for the Open operation. 


533 (1DE) 


DXVOLSEQ(6) 


Open work area that overlays the first 2 bytes of DXVOLMT2. 


535 (1E0) 


DXWORK1 (4) 


Open work area that overlays the last 4 bytes of DXVOLMT2. 


539 (1E4) 


DXWORK2 (4) 


Open work area. 


The following fields are used only by EOV and follow field DXXCTL. 


527 (1D8) 


DXXAREA (40) 


Contains a WTG table for EOV that consists of a single entry and is nearly identical to the 
WTG table for Open and Close. The two tables have identical field names with the exception 
of the first 3 characters, which are either DXX or WTG. One field of DXXAREA, DXOPCLSW, 
has no corresponding field in WTGAREA. 


567 (1F5) 


DXOPCLSWd) 


See DXXAREA above. This field overlays the last byte of DXXAREA, which is not required by 
EOV. EOV's work area is of a fixed length. This field is used as a switch between EOV and 
Open or Close. 


577 (200) 


DXVOLSER (18) 


Includes the following three fields (DXVOLSR1 , DXVOLSR2, and DXVOLSR3). 



Figure 94 (Part 1 of 2). The fields beginning at offset X'190' in the O/C/EOV work area make up a work area that is 
used to manipulate other fields in the O/C/EOV work area. 
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Offset 


Field Name 


Field Use 


577 (200) 


DXV0LSR1 (6) 


Contains the serial number of the volume which is at EOV for read forward and output; 
contains the serial number of the mount-ahead volume for read backward. 


583 (206) 


DXVOLSR2(6) 


Contains the serial number of the next volume required. 


589 (20C) 


DXV0LSR3 (6) 


Contains the serial number of the mount-ahead volume for read forward and output; 
contains the serial number of the volume at EOV for read backward. 


595(212) 


DXN0UNIT(2) 


Contains the number of units allocated to the data set being processed. 


597 (214) 


DXDCBLST(4) 


Contains a dummy DCB parameter list constructed by the EOV Initial Work Area Initialization 
Function so that the resident routine can communicate with EOV as it does with Open and 
Close. The parameter list is 1 word long because only one DCB at a time is processed by EOV. 
The 3 low-order bytes contain the address of the DCB, and the high-order bit of the first 
byte is on to indicate that this is the last (and only) entry in the list. 



Figure 94 (Part 2 of 2). The fields beginning at offset X'190' in the O/C/EOV work area make up a work area that is 
used to manipulate other fields in the O/C/EOV work area. 

JFCBMASK Field 

A JFCB is constructed and written on auxiliary storage by the job management routines for each 
dd name specified in a job step. A JFCB is brought into main storage when a DCB with the 
corresponding dd name is to be processed. 

The JFCBMASK field, located in the JFCB, is used by the Open, Close, and EOV operations to 
indicate DCB field modification and to flag conditions that alter the normal processing of a DCB. 

Open uses the first 4 bytes to indicate which fields in the DCB are modified during the Open 
operation. One bit corresponds to one DCB field (or more than one field if the fields are related). 
If a field is to be modified, Open sets its bit to 1 . At the end of the Open operation, the Open 
final JFCB to DSCB merge function stores these 4 bytes of the JFCBMASK field in the 
DEBDCBMK field of the DEB and sets these 4 bytes of the JFCBMASK field to before writing 
the JFCB back to its original location. See the "DEBDCBMK Field" section for more information 
on this field. 

The Open, Close, and EOV operations use the remaining 4 bytes of the JFCBMASK field to flag 
certain conditions necessary to process the DCB. 

The first three columns of the following list show each byte of the JFCBMASK field, each bit 
within a byte, and what the bit indicates when set to 1 . The fourth column shows which opera- 
tions use the bit. 



Byte Bit 

JFCBMASK+O xxxx 



Indicates 

xxxx Reserved for future use. 



Operation(s) 



JFCBMASK+1 1 . . 



.. 1 



DCBOPTCD field modified to force 2321 Open 
write checking. 

DCBUFOF field merged from JFCBUFOF Open 
field of the JFCB for BSAM or QSAM. 

DCBNTM field modified for ISAM. Open 

DCBPCI field modified for TCAM. Open 



Section 5: Data Areas 161 



Byte 

JFCBMASK+1 

(Continued) 



Bit 



1 . 
. 1 



Indicates Operation(s) 

DCBCYLOF field modified for ISAM. Open 

DCBRKP field modified for ISAM. Open 

DCBRESER field modified for TCAM. Open 

DCBDBUFN field modified for ISAM. Open 

DCBNCP field modified for ISAM. Open 

DCBEROPT field modified for ISAM or Open 
QSAM. 



JFCBMASK+2 1 . 



JFCBMASK+3 1 . 
. 1 



1 



DCBLRECL field modified for ISAM Open 

or QSAM. 

DCBLIMCT field modified for BDAM. Open 

DCBNCP field modified for BSAM. Open 

DCBBLKSI and DCBBUFSI fields Open 

modified for TCAM. 

1 . . . DCBOPTCD field modified. Open 

. 1 . . DCBRECFM field merged from Open 

JFCRECFM field of the JFCB. 

. . 1 . DCBDEN field modified. Open 

... 1 DCBFTEK and DCBBFALN fields Open 
modified, and DCBGNCP field merged 

from JFCNCP field of the JFCB. Open 

DCBBUFMA field modified for TCAM. Open 

DCBBUFL field modified. Open 

DCBBUFNO field modified. Open 

DCBKEYLE field merged from Open 

JFCBKEYLE field in the JFCB, and 
DCBTRTCH field modified. 

DCBSOWA field merged from Open 

JFCSOWA field of the JFCB for QTAM. 

1 . . . DCBCPRI field merged from JFCCPRI Open 

field of the JFCB for QTAM. 
DCBTHRES field modified for TCAM. Open 

. 1 . . DCBINTVL field merged from JFCINTVL Open 
field in the JFCB for QTAM. 

. . 1 . DCBLRECL field merged from JFCLRECL Open 
field in the JFCB. 

... 1 DCBDSORG field merged from JFCDSORG Open 
field of the JFCB. 



JFCBMASK+4 1 . . . 



JFCB has been modified and is to be written Open 

back, unless bit 7 of JFCBTSDM field is set 

to 1. 

JFCB has been read. Close 
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Byte 



Bit 



JFCBMASK+4 . . . 
(Conintued) 



1 . 



1 . 



. 1 



1 .. 

. 1 . 
.. 1 



JFCBMASK+5 1 . . . 

. 1. . 

.. 1 . 
... 1 



1 . 



. 00 



Indicates 

JFCB has not been modified; however, the 
Open operation assumes, at the end of its 
processing, that the bit is set to 1 and writes 
the JFCB back. 

DSCB has been modified and is to be written 
back. 

Data set being processed is a dummy (null) 
data set. 

BPAM concatenation. 

Direct access parallel mounting for ISAM 
or BDAM. 

Password required. 

Delayed ABEND pending (DCBOFLGS 
field bit 7 set to 0), or the processing 
program recovered from an ABEND 
(DCBOFLGS field bit 7 set to 1). 

Volume sequence number modified by 
DISP=MOD direct-access recovery volume 
sequence number set to after DEB built. 

Output magnetic tape label conflict. 

IBM standard or American National 
Standard labeled tape required for output 
magnetic tape. 

Nonstandard or nonlabeled tape required for 
output magnetic tape. 

Dual density check required for output 

magnetic tape. 

1 100 . . . . = create standard label 

1010 . . . . = destroy standard label or 

American National Standard 
label 

1110 . . . . = change IBM standard label to 
American National Standard 
or American National 
Standard label to IBM 
standard label 

Merge during standard label or nonstandard 
label processing to be bypassed after a 
remount of output magnetic tape. 

User-label routine called for Close operation 
with TYPE=T. 



. 10 • User-label routine called for Open operation. 
. 11 . User-label routine called for EOV operation. 
... x Reserved for future use. 



Operation(s) 

Open 

Open 

Open 

Open 
Open 

Open 

Open, 
Close, 
EOV 

Open 
Open, EOV 

Open, EOV 
Open, EOV 



Open 

Open, EOV 

Open, EOV 
Open, EOV 
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Byte Bit 

JFCBMASK+6 1 . . 



. 1 



Indicates Operation(s) 

LABEL=(, , , IN) is specified on DD card. Open 

This bit is set to 1 by the job scheduler to 
change the Open operation from INOUT 
mode to INPUT mode. 

LABEL=(, , , OUT) is specified on DD card. Open 
This bit is set to 1 by the job scheduler to 
change the Open operation from OUTIN 
mode to OUTPUT mode. 

Note: Both bits and 1 are set to 1 during the Open operation 
if the mode is being overridden. 

Direct-access rotational position sensing Open 

(RPS) is being used. 

Direct-access RPS is not being used. Open 

DISP=NEW is to be changed to DISP=MOD. Open 

Search direct is not being used. Open 

Search direct is being used. Open 

Work areas associated with this DCB are to Open, 
be traced by the optional GTF routine each Close, 
time a branch is made to the resident rou- EOV 

tine for an XCTL macro to be issued. The 
bit is set to 1 by the job scheduler if 
DCB=DIAGNS=TRACE is specified on the 
DD statement. 

Open operation, after it was called, stored Open 

a TTR in the JFCBOTTR field. 

JFCBUFOF field contains, before the Open Open 
operation has been called, a buffer offset or 
invalid information resulting from a JFCB- 
to-JFCB merge. 

TTR of the identifier (format 1) DSCB of Open 

the first volume has been updated in the 

JFCBDSCB field by Open and should be 

updated in the catalog by the scheduler at 

step termination, if the data set is 

cataloged. 



.0. 




. 1 . 




.. 1 






0.. 




1 .. 




. 1 . 



..0 



.. 1 . 



... 1 



JFCBMASK+7 1 



, XXX 



xxxx 



Second pass through the Open Tape 
Volume Reference Function is necessary. 

Reserved for future use. 



Open 



DEBDCBMK Field 



The DEB is an extension of the information in the DCB. Each DEB is associated with a DCB, 
and the two blocks contain pointers to each other. The DEB contains information about the 
physical characteristics of the data set and other information that is being used by the control 
program. 
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The DEBDCBMK field, located in the prefix section of the DEB, is a DCB modification mask, 
which is built by Open to indicate which DCB fields are modified during its operation. One bit 
corresponds to one or more DCB fields. If a DCB field is to be modified, Open sets its bit to 1. 
The mask is then stored in the DEB by the Open operation. 

The Close operation examines the DEBDCBMK field to determine which fields of the DCB are 
to be restored to the status they had before they were processed by the Open operation. (Close 
restores the fields whose corresponding bits are set to 1 .) 

The three columns of the following list show each byte of the DEBDCBMK field, each bit within 
a byte, and which fields in the DCB may be modified. 



Byte 


Bit 




Field(s) Modified 


DEBDCBMK+O 


xxxx 


XXXX 


Not used 


DEBDCBMK+1 


X . . . 




Not used 




. 1 .. 




DCBIFLG 




.. 1 . 




DCBNTM, DCBPCI 




... 1 




DCBCYLOF 






1 ... 


DCBRKP, DCBRESER 






. 1 .. 


DCBDBUFN 






.. 1 . 


DCBNCP (ISAM) 






... 1 


DCBEROPT 


DEBDCBMK+2 


1 ... 




DCBLRECL 




. 1 .. 




DCBLIMCT 




.. 1 . 




DCBNCP (BSAM) 




... 1 




DCBBLKSI, DCBBUFSI 






1 ... 


DCBOPTCD 






. 1 .. 


DCBRECFM 






.. 1 . 


DCBDEN 






... 1 


DCBFTEK, DCBBFALN, DCBGNCP, DCBBUFMA 


DEBDCBMK+3 


1 ... 




DCBBUFL 




. 1 .. 




DCBBUFNO 




.. 1 . 




DCBKEYLE, DCBTRTCH 




... 1 




DCBSOWA 






1 ... 


DCBCPRI, DCBTHRES 






. 1 .. 


DCBINTVL 






.. 1 . 


DCBLRECL 






... 1 


DCBDSORG 
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DCBOFLGS Field 



This 1-byte field is located in the foundation segment of the DCB. The field contains input and 
output information necessary for the Open, Close, and EOV operations to process the DCB. 
More information about this field and the DCB is in OS System Control Blocks, GC28-6628. 



Bit 

1 .. 
0.. 

1 . 



1 .. 
.0 



Meaning 

Last I/O operation was a WRITE. 

Last I/O operation was a READ or POINT. For direct-access devices, the track 
balance field is invalid. 

Last I/O operation was a READ backward. 

Concatenation of data sets in process. 

An Open operation has been successfully completed. 

A processing program has indicated a concatenation of unlike attributes. 

A tapemark has been read. 

An Open, Close, or EOV operation took a user exit and the user's processing 
has not been completed. (This bit setting prevents other Open, Close, and EOV 
operations from processing this DCB.) 

An Open, Close, or EOV operation took a user exit and the user's processing has 
been completed. 

This DCB is to be processed by the Open, Close, or EOV operation that set this 
bit to 1. 



Transfer Control (XCTL) Table 



If a module name consists of IFG or IGG, followed by 019, 020, 023, or 055, followed by a nu- 
meric character, an XCTL table appears in the module. (IGC0001I, IGC0002B, IGC00020, 
IGC0002C, IGC0003A, and IGC0005E also have XCTL tables.) The XCTL table in each such 
module lists the other modules to which that module can transfer control. The format of the 
table is shown in Figure 95. 





2 bytes 






3 bytes 


1 byte 




r~ 




~^ r~ 


a r ^ 




* 
* 


ID of module 


•N 


TTR of module Length of module 
' £p in doublewords £ 


"1 One or more 
ij entries 


X'FFFF' 


Field not present 




? 


ID of module 


/"• 


< 


TTR of module 


Length of module 
2 in doublewords ^ 


"\ One or more 
,T entries 


X'0000' 


Unused main storage 


\ End of 

J XCTL table 


Unused main 
storage 


SVC code 


Pointer to XCTL 
table 


\ Last 4 bytes of 
J the module 



Note: IDs before X'FFFF' indicate modules with names beginning with "IFG.' 
IDs after X'FFFF' indicate modules with names beginning with "IGG." 



Figure 95. Format of the XCTL table. 
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The XCTL table starts on a doubleword boundary and consists of entries, each in the form 
IDTTRL, for the other modules to which control can be transferred. Each entry consists of a 
module ID, the module's relative disk address (TTR) in SYS1.SVCLIB, and the module's 
length (L) in doublewords. The TTRLs are inserted by the IEHIOSUP utility program when the 
system is generated or modified. 

The last 4 bytes of each module consist of a 3-byte EBCDIC supervisor call (SVC) code and a 
1-byte pointer to the module's XCTL table. The SVC code is the fourth, fifth, and sixth letters 
of the module name. 

When a module has finished its processing for a DCB, the ID of the next module to gain control 
is put in the WTG table entry and a branch is taken to the resident routine, which issues the 
XCTL macro. 



Where-To-Go (WTG) Table 



Each Open or Close operation sets up its own WTG table to indicate the sequence of modules 
needed to complete the operation. Figure 96 shows the WTG table format. 

The first 29 bytes (bytes 0-28) of the WTG table consist of a parameter list for the XCTL and 
LOAD macro instructions. Bytes 30 and 31 indicate by bit setting (see the "WTGPATH Field' 
section for the bit settings) the sequence of modules needed to complete the Open or Close 
operation. 



0(0) 



Name of module in control 



8(8) 



Not used 



16(10) 
. . . record 



17 (11) 
Resident routine 
work area address 



24(18) 

Total amount of continuous main 
storage required for this module 



20 (14) 
Not used 



27 (1B) 

Length of first 
text record 



32 (20) 

IDTTR of next Open, Close, or EOV 
module or access method executor 
required to process this DCB 



14 (0E) 



TTR of first text . . . 



22(16) 



Attributes of 
the data set 



29 (1D) 

WTG table 
length 



30 (1E) 

WTGPATH 
field 



37 (25) 

Work area address for 
this DCB 



5 bytes 

IDTTR of module in Open or Close 
operation to receive control from the 
access method executor 



3 bytes 

Resident routine 
work area address 



One entry for each 
DCB to be processed 



} 



Last entry in 
WTG table 



Figure 96. Each Open or Close operation sets up its own WTG table. 
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The length of the rest of the WTG table depends on the number of DCBs to be processed. This 
part of the table indicates the next module required to process each DCB. Open, Close, and EOV 
operations indicate this by providing each DCB with an entry in the table when it is built. The 
Open, Close, and EOV operations issue the IECRES macro instruction, which copies from the 
XCTL table to the first 5 bytes of the DCB's 8-byte entry the ID and TTR of the next Open, 
Close, or EOV module or first access method executor required to process the DCB. The last 
3 bytes of the 8-byte entry contain the address of the work area assigned to the DCB. 

The last 8-byte entry of the WTG table contains the IDTTR (5 bytes) of the module in the Open 
or Close operation to which the access method executors return control and the address (3 bytes) 
of the resident routine work area. 

All of the 8-byte DCB entries except the last are used by both the resident routine and the access 
method executors. The last entry is used by the access method executors only. 

Dumps issued by systems with MFT contain only the last 4 characters of the module name in the 
Request Block (RB) APSW field. After an OPEN macro instruction has been issued, the Open 
WTG table should be checked for the module name. Possible duplications may occur in this field 
because of modules with names of the form IFGOxxxx or IGGOxxxx. 



WTGPATH Field 



The WTG table contains a field called WTGPATH. The settings of bits in this field are used to pass 
information between modules processing DCBs in parallel. 

The first three columns of the following list show each byte of the WTGPATH field, each bit 
setting within a byte, and what the bit indicates when set to 1. The fourth column shows which 
operations use the bit. 



Byte 

WTGPATH+0 



Bit 

1 ... 
. 1 .. 

.. 1 . 



xxxx 



Indicates Operation 

Direct-access partial release was requested. Close 

Nonstandard label tape input processing Open 
requires the display DSNAME WTO func- 
tion. 

NSL routine is needed. TCLOSE 

NSL processing is deferred. EOV 

SMF data set information is required. Close, EOV 

Reserved for future use. 



WTGPATH+1 1 Optional GTF routine is loaded or is 

about to be loaded. 

. xxx xx . . Reserved for future use. 

1 . Nonstandard label volume must be 

remounted and checked. 

x Reserved for future use. 



Open, 
Close, EOV 



Open 
Open 
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ABEND-Function-Module Cross-Reference 



This cross-reference table lists the ABEND codes and return codes that are issued by the Open, 
Close, and EOV operations and by the access method executors to which control is given during 
DCB processing. 

The list is in hexadecimal order by ABEND code with the name of the function (or access 
method executor) issuing the ABEND and return codes listed beside the return code. The names 
of specific modules issuing the ABEND and return codes are listed beside the function names. 

To find more information about a particular function and module, refer to the "Function-to- 
Module Directory," which indicates where descriptions of the function and module appear. 

Information about the access method executors is in the logic manual for the access method 
being used. 



ABEND 


Return 
Code 


Function 


Module 


013 


04 


Open Tape Initial Common Function 


IFG0193B 


08 


Open Tape Initial Common Function 


IFG0193B 


OC 


BDAM Executor 


IGG0193E 


1C 


SAM Executor 


IGG0191B 


10 


SAM Executor 


IGG0191C 


14 


SAM Executor 


IGG0191B 


18 


SAM Executor 


IGG0191B 


20 


SAM Executor 


IGG0191A 


24 


SAM Executor 


IGG0191A 


28 


SAM Executor 


IGG0191A 


2C 


SAM Executor 


IGG0191E 


30 


SAM Executor 


IGG0191F 


34 


SAM Executor 


IGG0191I 


38 


SAM Executor 


IGG0191H 


3C 


SAM Executor 


IGG0191D 


40 


SAM Executor 


IGG01910 


44 


SAM Executor 


IGG0191K 


48 


SAM Executor 


IGG01911 


4C 


SAM Executor 


IGG0196B 


50 


SAM Executor 


IGG0196B 


54 


SAM Executor 


IGG0196A 
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ABEND 


Return 
Code 


Function 


Module 


013 

(Continued) 


58 


SAM Executor 


IGG01912 


5C 


SAM Executor 


IGG01915 


SAM Executor 


IGG01916 


60 


SAM Executor 


IGG0191A 


64 


Open Merge DCB To JFCB Function 


IFG0196M 


Open BPAM Concatenation Function 


IFG0195M 


68 


Open Merge DCB Exit Function 


IFG0196L 


6C 


Open Merge DCB Exit Function 


IFG0196L 


70 


Open Merge DCB To JFCB Function 


IFG0196M 


74 


SAM Executor 


IGG0197A 


78 


SAM Executor 


IGG0197A 


7C 


SAM Executor 


IGG0197A 


80 


SAM Executor 


IGG0197A 


84 


SAM Executor 


IGG0197B 


03D 


04 


Open Direct-Access Parallel Mounting Function 


IFG0195O, 
IFG0195P 


08 


Open Direct-Access Parallel Mounting Function 


IFG0195O, 
IFG0195P 


113 


04 


Open Initial Volume Serial Function 


IFG0193A 


Open Tape Volume Reference Function 


IFG0194D 


08 


Open Initial Volume Serial Function 


IFG0193A 


Open Direct-Access DISP=MOD Error Recovery 
Function 


IFG0195E 


0C 


Open Initial Volume Serial Function 


IFG0193A 


10 


Open Final Write JFCB Function 


IFG0198N 


14 


Open Direct-Access Parallel Mounting Function 


IFG0195O, 
IFG0195P 


18 


Open Direct-Access Parallel Mounting Function 


IFG0195P 


117 


04 


TCLOSE Final Function 


IFG0232Z 
(IFG0202U) 


08 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


0C 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


10 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


14 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


18 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


1C 


TCLOSE Tape Volume Positioning Function 


IFG0232S 
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ABEND 


Return 
Code 


Function 


Module 


117 

(Continued) 


20 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


24 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


28 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


2C 


TCLOSE Tape Standard Trailer Label Function 


IFG0232G, 
IFG0232M 


30 


TCLOSE Tape Standard Trailer Label Function 


IFG0232G, 
IFG0232M 


137 


04 


EOV Tape Output Trailer Label Function (EOV1) 


IFG0551P 


08 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


0C 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


10 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


14 


EOV Tape Input Standard Header Label Function 


IFG0553F 


18 


EOV Tape Input Standard Header Label Function 


IFG0553F 


1C 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


20 


EOV Tape Input Standard Header Label Function 


IFG0553F 


140 


04 


RDJFCB Macro Instruction 


IGC0006D 


213 


04 


Open Direct-Access 213 ABEND Exit Function 


IFG0195G 


08 


Open Security Initialization Function 


IFG0195T 


OC 


Open Direct-Access Parallel Mounting Function 


IFG0195O, 
IFG0195P 


10 


Open Direct-Access Parallel Mounting Function 


IFG0195O, 
IFG0195P 


18 


Open Final JFCB to DSCB Merge Function 


IFG0196X 


1C 


SAM Executor 


IGG0197F 


214 


04 


Close Tape Standard User Label Function 


IFG0202A 


08 


Close Tape Volume Disposition Function 


IFG0202F, 
IFG0202G 


217 


04 


TCLOSE Initial Function 


IGC0002C 


237 


04 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


08 


EOV Tape Input Standard Header Label Function 


IFG0553F 


240 


04 


RDJFCB Macro Instruction 


IGC0006D 


08 


RDJFCB Macro Instruction 


IGC0006D 


OC 


RDJFCB Macro Instruction 


IGC0006D 


10 


RDJFCB Macro Instruction 


IGC0006D 
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ABEND 


Return 
Code 


Function 


Module 


313 


04 


Open Direct-Access Read DSCB Function 


IFG0194E, 
IFG0195A 


314 


04 


Close Direct-Access Read DSCB Function 


IFG0200V 


08 


Close Direct-Access Output User Labels Function 


IFG0201R, 
IFG0202D 


317 


04 


TCLOSE Direct-Access Input Function 


IFG0232D 


TCLOSE Direct-Access Output Function 


IFG0232D 


337 


04 


EOV End-of-Data Function 


IFG0552X 


EOV Access Method Executor Function 


IFG0551L, 
IFG0551N 


413 


04 


Open Direct-Access Volume Verification Function 


IFG0194A, 
IFG0194C 


Open Tape Mount Verification Function 


IFG0194F 


08 


Open Tape Initial Common Function 


IFG0193B 


Open Tape Volume Mounting Function 


IFG0194G 


Open Tape Volume Verification Function 


IFG0194H 


Open Tape Final Common Function 


IFG0194I 


Open Tape Nonstandard Label Input Interface 
Function 


IFG0195D 
(IGG0190B) 


OC 


Open Tape Volume Verification Function 


IFG0194H 


Open Tape Final Common Function 


IFG0194I 


Open Tape Nonstandard Label Input Interface 
Function 


IFG0195D 
(IGG0190B) 


14 


Open Tape Final Common Function 


IFG0194I 


18 


Open Tape Volume Reference Function 


IFG0194D 


Open Direct-Access Unit Selection Function 


IFG0194E 


1C 


Open Initial Volume Serial Function 


IFG0193A 


20 


Open Direct-Access Volume Verification Function 


IFG0194A, 
IFG0194C 


24 


Open Initial Function 


IGC0001I, 
IGC0002B 


414 


04 


Close Direct- Access Write DSCB Function 


IFG0201R 


417 


04 


TCLOSE Direct-Access Input Function 


IFG0232D 


TCLOSE Direct-Access Output Function 


IFG0232D 


437 


04 


EOV Initial Read JFCB Function 


IFG0551F 


513 


04 


Open Tape Final Common Function 


IFG0194I 


613 


04 


Open Tape Standard Label Positioning Function 


IFG0195B 


Open Tape No Label Positioning Function 


IFG0195C 
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ABEND 


Return 
Code 


Function 


Module 


613 
(Continued) 


04 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195H 


Open Tape Standard Label Input/MOD Header 
Label 2 Function 


IFG0195H, 
IFG0195K 


Open Tape Standard Label I nput User Label 
Function 


IFG0195N 


Open Tape Standard Label Output Security Function 


IFG0195N 


08 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195H 


Open Tape Standard Label Input/MOD Header 
Label 2 Function 


IFG0195H, 
IFG0195K 


Open Tape Standard Label Output Security Function 


IFG0195N 


0C 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195H 


Open Tape Standard Label Input/MOD Header 
Label 2 Function 


IFG0195H, 
IFG0195K 


Open Tape Standard Label Output Security Function 


IFG0195N 


10 


Open Tape Standard Label Rewrite Volume Label 
Function 


IFG0195Q, 
IFG0195T 


Open Tape Standard Label Header Label Writing 
Function 


IFG0195T 


14 


Open Tape Standard Label Header Label Writing 
Function 


IFG0195T 


Open Tape Standard Label Output User Label 
Function 


IFG0196U 


614 


04 


Close Direct-Access Write File Mark Function 


IFG0202E 


637 


04 


EOV Tape Output Volume Disposition Function 


IFG0551T 
(IGG0550F) 


EOV Tape Output Label Verification Function 


IFG0551X 

(IGG0550P), 

IFG0551Z 


08 


EOV Tape Input Standard Trailer Label Function 


IFG0552R, 
IFG0552T 


OC 


EOV End-of-Data Function 


IFG0552X 


10 


EOV Tape Input Data Set Positioning Function 


IFG0553D 


14 


EOV Tape Input Volume Positioning Function 


IFG0552V 


18 


EOV Tape Input Volume Positioning Function 


IFG0552V 


1C 


EOV Tape Input Volume Positioning Function 


IFG0552V 


20 


EOV Tape Input Volume Positioning Function 


IFG0552V 


24 


EOV Tape Input Volume Positioning Function 


IFG0552V 


28 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 
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ABEND 


Return 
Code 


Function 


Module 


637 
(Continued) 


2C 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 


30 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 


34 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 


38 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 


3C 


EOV Tape Input Data Set Positioning Function 


IFG0553D 


40 


EOV Tape Input Data Set Positioning Function 


IFG0553D 


44 


EOV Tape Input New Volume Mounting Function 


IFG0552Z, 
IFG0553D 


48 


EOV Tape Input Next Volume Mounting Function 


IFG0553H 
(IGG0550D) 


4C 


EOV Tape Input Standard Header Label Function 


IFG0553F 


713 


04 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195H 


08 


Open Direct-Access Expiration Date Error Function 


IFG0195G 


714 


04 


Close Tape Standard Trailer Label Function 


IFG0200Z 


08 


Close Tape Standard Trailer Label Function 


IFG0200Z 


0C 


Close Tape Standard Trailer Label Function 


IFG0200Z 


Close Tape Volume Disposition Function 


IFG0202F, 
IFG0202G 


717 


04 


TCLOSE Tape Standard Trailer Label Function 


IFG0232G, 
IFG0232M 


08 


TCLOSE Tape Standard Trailer Label Function 


IFG0232G, 
IFG0232M 


OC 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


10 


TCLOSE Tape Volume Positioning Function 


IFG0232S 


737 


04 


EOV Direct- Access Output B37 ABEND Function 


IFG0554T 


EOV Direct-Access Output Next Volume Mount 
Function 


IFG0554V 


EOV Direct-Access Output IBM 2321 Next 
Volume Mount Function 


IFG0554X 


EOV Direct-Access Output Volume Disposition 
Function 


IFG0554Z 


EOV Direct-Access Output JFCB Update Function 


IFG0555D 


EOV Direct -Access Output Read DSCB Function 


IFG0555F 


EOV Direct-Access Output Current DEB Function 


IFG0555H 


08 


EOV Direct-Access Input Mount Function 


IFG0553R, 
IFG0553T 
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ABEND 


Return 
Code 


Function 


Module 


737 

(Continued) 


08 


EOV Direct-Access Output IBM 2321 Next Volume 
Mount Function 


IFG0554X 


EOV Direct-Access Input FEOV Repositioning 
Function 


IFG0554B, 
IFG0554D 


OC 


EOV Direct-Access Input Exit Function 


IFG0553Z 


14 


EOV Direct-Access Input Initial Function 


IFG0553P 


18 


EOV Direct-Access Input Mount Function 


IFG0553R, 
IFG0553T 


EOV Direct-Access Input FEOV Repositioning 
Function 


IFG0554B, 
IFG0554D 


1C 


EOV Direct-Access Input DEB Function 


IFG0553X 


20 


EOV Direct-Access Input Mount Ahead Function 


IFG0553V 


813 


04 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195H 


Open Tape Standard Label Input/MOD Header 
Label 2 Function 


IFG0195H, 
IFG0195K 


837 


04 


EOV Initial Read JFCB Function 


IFG0551F 


EOV Initial JFCB Extension Function 


IFG0551J 


EOV Tape Output Exit Function 


IFG0552H 


08 


EOV Initial JFCB Extension Function 


IFG0551J 


913 


04 


Open Tape Volume Verification Function 


IFG0194H 


08 


Open Tape Standard Label Input/MOD Header 
Label 1 Function 


IFG0195B, 
IFG0195K 


Open Tape Standard Label Output Security Function 


IFG0196N 


OC 


Open Security Search Function 


IFG0195U 


A13 


04 


Open Tape Standard Label Positioning Function 


IFG0195B 


Open Tape No Label Positioning Function 


IFG0195C 


A14 


04 


Close Direct-Access Partial Release Interface 
Function 


IFG0200Y 

(IGG0200F) 

(IGG0200G) 


B13 


04 


SAM Executor 


IGG0191U 


08 


SAM Executor 


IGG0191U 


OC 


SAM Executor 


IGG0191V 


10 


SAM Executor 


IGG0197U 


14 


SAM Executor 


IGG0197U 


18 


SAM Executor 


IGG0197F 


1C 


SAM Executor 


IGG0197F 


20 


SAM Executor 


IGG0191T 
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ABEND 


Return 
Code 


Function 


Module 


B13 
(Continued) 


24 


SAM Executor 


IGG0191T 


28 


SAM Executor 


IGG0191T 


B14 


04 


SAM Executor 


IGG0201B 


SAM Executor 


IGG0201Z 


08 


SAM Executor 


IGG0201B 


SAM Executor 


IGG0201Z 


0C 


SAM Executor 


IGG0201B 


SAM Executor 


IGG0201Z 


10 


SAM Executor 


IGG0201B 


SAM Executor 


IGG0201Z 


B37 


04 


EOV Tape Output New Volume Function 


IFG0551V 


EOV Tape Input New Volume Mounting 
Function 


IFG0552Z, 
IFG0553D 


EOV Direct-Access Input Mount Function 


IFG0553R, 
IFG0553T 


EOV Direct-Access Output IBM 2321 Get Space 
Current Volume Function 


IFG0554R 
(IGG0552K) 


EOV Direct-Access Output B37 ABEND Function 


IFG0554T 


C13 


04 


Open Direct-Access BPAM Concatenation Function 


IFG0195M 


08 


Open Direct-Access BPAM Concatenation Function 


IFG0195M 


OC 


Open Direct-Access BPAM Concatenation Function 


IFG0195M 


10 


Open Direct-Access BPAM Concatenation Function 


IFG0195M 


14 


GAM Executor 


IGG01934 


D13 


04 


GAM Executor 


IGG01934 


D37 


04 


EOV Direct-Access Output Get Space Current 
Volume Function 


IFG0554P 


EOV Direct-Access Output IBM 2321 Get Space 
Current Volume Function 


IFG0554R 
(IGG0552K) 


EOV Direct-Access Output Next Volume Mount 
Function 


IFG0554V 


EOV Direct-Access Output IBM 2321 Next Volume 
Mount Function 


IFG0554X 


E13 


04 


GAM Executor 


IGG01934 


E37 


04 


EOV Direct-Access Output Get Space Current 
Volume Function 


IFG0554P 


EOV Direct-Access Output IBM 2321 Get Space 
Current Volume Function 


IFG0554R 
(IGG0552K) 


EOV Direct-Access Output Next Volume Mount 
Function 


IFG0554V 
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ABEND 


Return 
Code 


Function 


Module 


E37 
(Continued) 


04 


EOV Direct-Access Output IBM 2321 Next Volume 
Mount Function 


IFG0554X 


EOV Direct-Access Output Volume Disposition 
Function 


IFG0554Z 



DCB Error Handling 



There are two situations in which a DCB to be processed by an Open, Close, or EOV operation 
may be ignored. 

1. The processing program has requested that a DCB be opened, but the DCB is already open 
and cannot be opened again. 

2. Control is returned from problem determination with a request to ignore that DCB. 

At four stages in processing a DCB the two situations are taken into consideration to ensure that 
each ignored DCB's work area is freed. 

Control Given to First Module of the Operation 

If no DCBs are to be processed, control is returned to the user. 
For a DCB in situation 1 : 

• An O/C/EOV work area is not obtained. 

• The O/C/EOV work area address for the DCB in the WTG table entry is set to 0. 

• The module ID in the DCB's WTG table entry is set to X'0000'. 

For a DCB in situation 2: 

• Bit 7 of the DCBOFLGS field is set to 0. 

• The IDTTR of the last module of the operation is inserted in the DCB's WTG table entry. 

• A branch-table offset of 4 is added to the contents of register RET. This branch-table off- 
set corresponds to the last entry of the WTG table. 

Control Given to Executors 

If bit 7 of the DCBOFLGS field is set to 0, the module ID in the DCB's WTG table entry is set 
to X'0000'. 



Control Returned from Executors 



If the module ID in the DCB's WTG table entry is X'0000', the work area pointer in the entry is 
not 0, and bit 7 of the DCBOFLGS field is set to 0, the ID in the last 8-byte entry of the WTG 
table is moved to the DCB's WTG table entry and a branch-table offset of 4 is added to the 
contents of register RET. 
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If bit 7 of the DCBOFLGS field is set to 1 , the ID of the current module in the first entry of 
the WTG table is copied into the DCB's entry. 

Control Given to Module Whose ID is in the Last 8-byte Entry of WTG Table 

A branch is taken to the address specified in the branch-table at the offset in the last 8-byte 
entry to handle the DCB that was ignored because of the second situation. 

Internal ABEND Codes 

When an error that requires the ABEND Interpretation and Recovery Initialization Function 
occurs during an Open, Close, or EOV operation, the operation passes the function an internal 
code in register 0. This internal code indicates to the function what ABEND code and return 
code are to be issued. 

The following list is divided into the Open, Close, Close (TYPE=T), and EOV operations with the 
specific internal codes that each passes listed under it. The list gives the internal code, its associ- 
ated ABEND code and return code, and the reason for the error. 



Open Operation 



Internal 


ABEND 


Return 


Code 


Code 


Code 


1 


413 


04 


2 


413 


08 


3 


413 


OC 


4 


413 


10 


5 


413 


14 


6 


513 


04 


7 


113 


04 


8 


413 


18 


9 


613 


04 


10 


A13 


04 


11 


613 


08 


12 


613 


OC 


13 


713 


04 


14 


813 


04 


15 


613 


10 


16 


613 


14 



Reason 

No unit available to mount volume 

I/O error during positioning of tape volume 

I/O error during reading of tape volume label 

I/O error during writing of tapemark 

I/O error during writing of EOF1 or EOF2 on SYSOUT 
data set 

Second OPEN was issued for a magnetic tape volume 

I/O error during reading of JFCB, or JFCB does not exist 

Data set was opened for INPUT and no volume serial number 
was specified 

I/O error during positioning of tape volume 

I/O error due to incorrect file sequence number during 
positioning of tape volume 

I/O error during reading of tape label 

Invalid tape label was read 

Expiration date on magnetic tape data set has not passed 

DS name on header label does not match that on DD state- 
ment 

I/O error during writing of tape label 

I/O error during writing of tapemark following labels 
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Internal 
Code 

17 



18 



26 



27 



ABEND 
Code 

013 



013 



413 



413 



Return 
Code 

04 



08 



19 


913 


04 


20 


913 


08 


21 


213 


08 


22 


913 


OC 


23 


413 


24 



04 



20 



28 


713 


08 


29 


113 


08 


30 


213 


04 


31 


213 


18 


32 


113 


08 


33 


113 


04 


34 


113 


OC 


35 


113 


10 


36 


313 


04 


37 


413 


1C 


38 


C13 


0C 


39 


C13 


08 


40 


C13 


04 


42 


C13 


10 


43 


013 


64 


44 


013 


68 


46 


013 


6C 


47 


013 


70 



49 



113 



14 



Reason 

American National Standard labels specified but not 
specified at system generation 

American National Standard labels specified for 7-track tape 
drive 

ASCII volume accessibility byte not blank 

ASCII security byte in HDR1 label indicates security- 
protected volume 

Password DSCB not found 

Invalid password supplied by operator 

800 BPI specified and data set allocated to 1600 BPI drive, 
or 1600 BPI specified and data set allocated to 800 BPI 
drive 

Open was not able to demount volume and mount required 
volume 

I/O error during reading of volume label on direct-access 
device 

Expiration date on direct-access data set has not passed 

I/O error during reading of JFCB extension block with 
DISP=MOD 

DSCB not found on first volume of data set 

I/O error during writing back of identifier (format 1) DSCB 

I/O error during reading of JFCB extension block 

I/O error during reading of JFCB 

OPEN TYPE=J issued but no JFCB exit specified 

I/O error during writing back of JFCB 

I/O error during reading of index (format 2) or extension 
(format 3) DSCB 

Volume sequence number is greater than volume count 

I/O error during reading of DSCB of concatenated partitioned 
organization (PO) data set 

I/O error during reading of JFCB of concatenated PO data set 

DSCB of concatenated PO data set not found 

Illegal concatenation of PO data sets for OUTPUT specified 

Dummy (null) data set specified but invalid for EXCP or if 
DSORG, then PS data set use dummy data set for BSAM or 
QSAM 

Blocksize is greater than 32767 

Allocated unit does not support track overflow 

Magnetic tape volume has mixed EBCDIC and ASCII attributes, 
or DCBOPTCD=Q specified for a nontape device 

I/O error during reading of ISAM concatenated JFCB 
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Internal 


ABEND 


Return 


Code 


Code 


Code 


50 


113 


18 


51 


013 


0C 


52 


013 


10 


53 


013 


14 


54 


013 


18 


55 


013 


1C 


56 


013 


20 


57 


013 


24 


58 


013 


28 


59 


013 


2C 


60 


013 


3C 


61 


013 


34 


62 


013 


38 


63 


013 


30 


64 


013 


40 


65 


013 


44 


66 


013 


48 


67 


B13 


10 


68 


B13 


14 


69 


B13 


0C 


70 


B13 


08 


71 


B13 


04 


72 


013 


4C 


73 


013 


50 


74 


013 


54 



75 



013 



58 



76 


013 


5C 


78 


140 


04 


79 


240 


04 


80 


240 


08 


81 


240 


OC 



Reason 

I/O error during reading of ISAM or BDAM JFCB extension 
block 

Dynamic buffering requested for BDAM data set with BUFL=0 

No BUFL or BUFCB specified for a dummy (null) data set 

DCB specified PO data set but DSCB specified different type 

Member of PO data set not found during execution of BLDL 
instruction 

I/O error during searching of directory of PO data set 

Blocksize not a multiple of logical record length for blocked data 
set with fixed-length records 

OPEN option 1 conflicts with MACRF parameter in DCB 

OPEN option 1 conflicts with MACRF parameter in DCB 

No buffers available 

No buffers available 

Buffers cannot be obtained because no blocksize or buffer length 
is specified 

No buffers available 

No buffers available 

No buffers available 

No buffers available 

No buffers available 

I/O error during verifying of UCS print chain 

Requested print chain not available 

I/O error during loading of UCS buffers 

I/O error during execution of BLDL instruction for UCS 
image 

UCS image not found in SYS1.SVCLIB by BLDL instruction 

Buffer length specified is smaller than blocksize 

OUTPUT not specified in OPEN macro for printer data set 

Secondary control unit for an IBM 1419 Magnetic Character 
Reader not found 

Concatenation of unlike attributes was specified for data set 
on paper tape 

QSAM spanned variable-length records not in locate mode 

I/O error during reading of JFCB 

RDJFCB issued but no foundation block present in DCB 

RDJFCB issued but no exit list address specified in DCB 

RDJFCB issued but no JFCB exit specified 
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Close Operation 



Internal 
Code 

82 

83 

84 

85 



89 



ABEND 
Code 

240 

013 

013 

013 



B13 



Return 
Code 

10 

60 

84 

74 



86 


013 


78 


87 


013 


7C 


88 


013 


80 



18 



90 


B13 


1C 


91 


C13 


14 


92 


D13 


04 


93 


E13 


04 


94 


013 


88 


95 


B13 


20 


96 


B13 


24 


97 


B13 


28 


214 


03D 


04 


215 


03D 


08 


216 


213 


0C 


217 


213 


10 



Reason 

RDJFCB issued but exit list address is invalid 

QSAM DCB specified RECFM=F, but logical record length 
not equal to blocksize 

Number of buffers in buffer pool control block not equal 
to DCBBUFNO 

Optical character recognition (OCR) data set not open for 
INPUT 

OCR data set opened with BUFL=0 

OCR data set opened with LRECL=0 

OCR data set opened with buffer length less than logical 
record length 

I/O error during loading of forms control buffer for IBM 
3211 printer 

Operator replied 'CANCEL' to message IEC128I 

Graphics device already open for this DCB 

DCB specifies GAM and requested unit not graphics device 

DCBGNCP field exceeds limits 

DCB does not specify TSO and requested unit is telecommu- 
nications device 

Storage not available for SYS1.IMAGELIB 

Volume containing SYS 1 JM AGELIB not mounted 

I/O error during search of SYS1 . IMAGELIB 

Volumes not specified in order they were created 

ISAM data set does not have required index (format 2) 
DSCB 

I/O error during reading of DSCB of ISAM or BDAM data set 

I/O error during reading of extension (format 3) DSCB for 
BDAM or ISAM data set 



Internal 


ABEND 


Return 


Code 


Code 


Code 


61 


714 


04 


62 


714 


OC 


63 


714 


08 


64 


214 


04 


65 


214 


08 


86 


314 


04 



Reason 

I/O error during writing of trailer label 1 

I/O error during writing of tapemark 

I/O error during writing of trailer label 2 

I/O error during reading of user label on tape volume 

I/O error during positioning of tape volume 

I/O error during reading of DSCB 
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Internal 
Code 


ABEND 
Code 


Return 
Code 


87 


A14 


04 


88 


414 


04 


89 


314 


08 


90 


614 


04 


111 


514 


04 


112 


Not 
Appli- 
cable 


Not 
Appli- 
cable 


120 


D14 


04 


121 


B14 


04 


122 


B14 


08 


123 


B14 


0C 


124 


B14 


10 



Reason 

I/O error during partial release of space 

I/O error during writing of DSCB 

I/O error during reading of identifier (format 1) DSCB when 
SUL is specified 

I/O error during writing of file mark 

I/O error during reading of JFCB 

Invalid control block(s) found 



Graphic device opened by a task other than graphics task 
Duplicate name of partitioned data set found in directory 
Specified member of partitioned data set cannot be found 
No space left in directory of partitioned data set 
I/O error during updating of directory of partitioned data set 



Close (TYPE=T) Operation 



Internal 


ABEND 


Return 


Code 


Code 


Code 


121 


217 


04 


122 


717 


04 


123 


717 


08 


124 


717 


08 


125 


717 


OC 


126 


717 


0C 


127 


117 


10 


128 


117 


10 


129 


117 


18 


130 


117 


1C 


131 


117 


04 


132 


317 


04 


133 


417 


04 


134 


117 


20 



Reason 

I/O error during reading of JFCB 

I/O error during writing of tapemark following last data record 

I/O error during writing of trailer label 1 

I/O error during writing of trailer label 2 

I/O error during writing of tapemark after trailer labels (SL) 
or after data (NL) 

I/O error during writing of tapemark after trailer labels (SL) 
or after data (NL) 

I/O error during backspace of file past second tapemark at 
end of data set 

I/O error during backspace of file past first tapemark at end 
of data set 

I/O error during forward space of file past tapemark preceding 
data for SL data set being opened for RDBACK 

I/O error during forward space of file past tapemark preceding 
data for NL data set opened for RDBACK 

I/O error during writing of file mark 

I/O error during reading of DSCB 

I/O error during writing of updated DSCB 

I/O error during positioning of tape volume for NL INPUT or 
SL OUTPUT data set 
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EOV Operation 



Internal ABEND Return 

Code Code Code Reason 

135 117 24 I/O error during forward space of file past tapemark following 

data 

136 117 28 I/O error during backspace of file past tapemark following 

data for data set opened for INPUT and LEAVE 

137 117 14 I/O error during positioning of tape volume when RDBACK 

and LEAVE or INOUT and REREAD are specified 

138 717 10 I/O error during reading of trailer label 1 to updated block 

count in DCB 

139 117 08 I/O error during forward space of file past tapemark when 

RDBACK and LEAVE or INOUT and REREAD are specified 

140 117 2C I/O error during backspace of file past tapemark following 

data when volume is full and FEOV is to be issued 

141 117 30 I/O error during tape volume positioning following user 

trailer label processing 



Internal 


ABEND 


Return 


Code 


Code 


Code 


141 


137 


04 


142 


B37 


04 


143 


837 


04 


144 


637 


04 


146 


137 


08 


147 


137 


0C 


148 


237 


04 


149 


637 


08 


150 


137 


10 


151 


637 


14 


152 


637 


18 


153 


637 


1C 


154 


637 


20 



Reason 

I/O error during writing of EOV label or tapemark 

New volume cannot be mounted because all units are reserved 

I/O error during reading or writing of JFCB 

I/O error during reading of label, writing of tapemark, or 
positioning of tape volume 

I/O error during positioning of tape volume or preparing for 
label processing 

I/O error during reading of trailer label or header label if 
data set opened for RDBACK 

Block count in DCB does not match count in trailer label 

I/O error during positioning of tape volume following user 
trailer label processing 

I/O error during positioning of tape volume to logical end 
of data set following trailer label processing 

I/O error during positioning of tape volume for OPEN LEAVE 
or FEOV LEAVE 

I/O error during positioning of tape volume for OPEN 
REREAD 

I/O error during positioning of tape volume when DISP=PASS 
and no OPEN option 2 specified 

I/O error during positioning of tape volume when OPEN 
option 2 is not specified, the volume is private, and DISP is 
not equal to PASS 
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Internal ABEND Return 
Code Code Code 



155 


637 


24 


156 


B37 


04 


157 


637 


28 


158 


637 


2C 


159 


637 


30 


160 


637 


34 


161 


637 


38 


162 


637 


3C 


163 


637 


40 


164 


137 


14 


165 


237 


08 


166 


B37 


04 



167 



174 



737 



337 



18 



168 


B37 


04 


169 


737 


08 


170 


737 


20 


171 


737 


OC 


172 


737 


08 


173 


737 


18 



04 



175 


737 


14 


176 


637 


OC 


178 


737 


1C 


179 


737 


1C 


180 


137 


1C 


184 


E37 


04 



Reason 

I/O error during performing of rewind of tape volume during 
volume positioning 

Next volume cannot be mounted because no unit available 

I/O error during positioning of tape volume when wrong 
volume mounted 

I/O error during rewinding of next volume before verification 
of volume label 

I/O error during unloading when wrong volume mounted in 
response to message IEC001 A 

I/O error during reading of volume label of tape volume 

I/O error during positioning of NL or NSL tape 

I/O error during positioning of tape volume to concatenated 
data set 

I/O error during positioning of SL or NL volume to data 

I/O error during reading of header label or trailer label during 
opening for RDBACK 

DS name in tape label does not match that in JFCB 

Next volume for IBM 2321 Data Cell Drive cannot be mounted 
because no unit available 

I/O error during reading of volume label on IBM 2321 Data 
Cell Drive 

Next volume cannot be mounted because no unit available 

I/O error during reading of volume label on direct-access 
volume 

I/O error during reading of DSCB during a mount ahead of 
next volume 

I/O error during reading of DSCB for concatenated partitioned 
data set 

I/O error during reading of volume label on direct-access 

I/O error during reading of volume label on IBM 2321 Data 
Cell Drive 

No EODAD exit had been specified in DCB when end-of-data 
detected 

I/O error during reading of DSCB for user trailer label processing 

Concatenation of data sets with unlike attributes found but not 
specified in DCB 

I/O error during reading of extension (format 3) DSCB 

I/O error during reading of extension (format 3) DSCB 

Invalid trailer label read 

No more space available on volume, all volumes used 
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Internal 


ABEND 


Return 


Code 


Code 


Code 


185 


B37 


04 


186 


D37 


04 


187 


737 


10 


188 


737 


04 


189 


737 


08 


190 


737 


04 


191 


137 


18 


192 


637 


44 


193 


637 


48 


194 


637 


10 


195 


137 


20 


196 


637 


4C 



Reason 

New volume cannot be mounted because all units are 
reserved 

Primary space exhausted, no secondary space specified 

I/O error during writing of file mark 

I/O error during reading or writing of JFCB or extension 
block 

I/O error during reading of volume label 

I/O error during reading or writing of DSCB 

I/O error during positioning of SL tape to first data record 

I/O error during reading of sense bytes to check for file 
protect ring on data set opened for INOUT 

I/O error during unload during lookahead mount 

I/O error in positioning tape volume when data set opened 
for RDBACK 

Invalid header label read 

I/O error during positioning of tape volume following user 
header label processing 

1 97 837 08 New JFCB extension block not found 



Message-to-Function Cross-Reference 



This cross-reference list indicates the messages issued by the Open, Close, and EOV operations. 
The list includes the ABEND and return codes associated with the message if the message is 
issued because of an error condition, and the name of the function(s) or access method executor(s) 
that issue the message. 

To find more information about each function, refer to the "Function-to-Module Directory," 
which will direct you to a description of each function. Information about the executors is in the 
OS logic manuals for the access methods, listed in the Preface of this manual. 

ABEND/ 
Return 
Message ID Code Function 

IEC001 A M EOV Tape Input New Volume Mounting Function 

EOV Tape Output New Volume Function 

EOV Tape Output Error Recovery And Nonstandard Label 
Function 

EOV Direct Access Input Mount Ahead Function 

EOV Direct Access Input FEOV Repositioning Function 

EOV Direct Access Output JFCB Update Function 

EOV Direct Access Output Volume Disposition Function 

EOV Direct Access Output Next Volume Mount Function 
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Message ID 

IEC001A M 
(Continued) 

IEC001E M 

IEC002E K 



ABEND/ 

Return 

Code 



IEC0003E R 



IEC004E D 



IEC007D E 

IEC009A F 

IEC010D F 
IEC012I 



Function 

EOV Direct-Access IBM 2321 Next Volume Mount Function 

EOV Tape Input Next Volume Mounting Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input Next Volume Mounting Function 

EOV Tape Output Volume Disposition Function 

EOV Tape Output Label Rewrite Function (VOL 1) 

EOV Tape Output Exit Function 

EOV Direct-Access Input Initial Function 

EOV Direct-Access Input FEOV Repositioning Function 

EOV Direct-Access Output Volume Disposition Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input Next Volume Mounting Function 

EOV Tape Output Volume Disposition Function 

EOV Tape Output New Volume Function 

EOV Tape Output Exit Function 

EOV Direct-Access Input Initial Function 

EOV Direct- Access Input IBM 2321 Next Volume Mount 
Function 

EOV Direct-Access Input FEOV Repositioning Function 

EOV Direct-Access Output Get Space Current Volume 
Function 

EOV Direct-Access Output IBM 2321 Get Space Current 
Volume Function 

EOV Direct-Access Output Volume Disposition Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input Next Volume Mounting Function 

EOV Tape Output Volume Disposition Function 

EOV Tape Output Exit Function 

EOV Tape Output Label Rewrite Function (VOL 1) 

EOV Tape Output Label Verification Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Output Label Rewrite Function (VOL 1) 

EOV Tape Output Label Destroy (EMODVOL1) Function 

EOV Tape Output Error Recovery And Nonstandard Label 
Function 
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Message ID 
IEC014E D 



ABEND/ 

Return 

Code 



IEC017I 



A-l 

A-2 



IEC022I 


137-04 




137-08 




137 -0C 




137-10 




137-14 




137-18 




137 -1C 




137-20 


IEC023I 


237 - 04 




237 - 08 


IEC024I 


337 - 04 


IEC025I 


437 - 04 


IEC026I 


637 - 04 




637 - 08 




637 - OC 




637-10 




637-14 




637-18 




637 -1C 




637 - 20 




637 - 24 




637 - 28 




637 - 2C 




637 - 30 




637 - 34 




637 - 38 




637 - 3C 




637 - 40 




637 - 44 



Function 

EOV Tape Ouput Error Recovery And Nonstandard Label 
Function 

EOV Tape Output Label Verification Function 

EOV Tape Input Standard Header Label Function 

EOV Tape Output Label Rewrite Function (VOL 1) 

EOV Tape Output Label Destroy (EMODVOL1) Function 

EOV Tape Output Trailer Label Function (£OVl) 

EOV Tape Input Standard Trailer Label Function 

EOV Tape Input Standard Trailer Label Function 

EOV Tape Input Standard Trailer Label Function 

EOV Tape Input Standard Header Label Function 

EOV Tape Input Standard Header Label Function 

EOV Tape Input Standard Trailer Label Function 

EOV Tape Input Standard Header Label Function 

EOV Tape Input Standard Trailer Label Function 

EOV Tape Input Standard Header Label Function 

EOV End-of-Data Function 

EOV Executor Function 

EOV Initial Read JFCB Function 

EOV Tape Output Volume Disposition Function 

EOV Tape Output Label Verification Function 

EOV Tape Input Standard Trailer Label Function 

EOV End-of-Data Function 

EOV Tape Input Data Set Positioning Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input Volume Positioning Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input New Volume Mounting Function 

EOV Tape Input Data Set Positioning Function 

EOV Tape Input Data Set Positioning Function 

EOV Tape Input New Volume Mounting Function 



Section 6: Diagnostic Aids 187 



Message ID 

IEC026I 
(Continued) 

IEC027I 



IEC028I 



IEC030I 



IEC031I 



ABEND/ 

Return 
Code 

637 - 48 

637 - 4C 

737 - 04 



737 - 08 



737 - 0C 
737-10 
737-18 

737 - 20 
837 - 04 



837 - 08 
B37 - 04 



D37 - 04 



IEC032I 



E37 - 04 



Function 

EOV Tape Input Next Volume Mounting Function 

EOV Tape Input Standard Header Label Function 

EOV Direct-Access Output FEOV Function 

EOV Direct-Access Output B37 ABEND Function 

EOV Direct-Access Output Next Volume Mount Function 

EOV Direct-Access Output IBM 2321 Next Volume Mount 
Function 

EOV Direct-Access Output Volume Disposition Function 

EOV Direct-Access Output JFCB Update Function 

EOV Direct-Access Output Read DSCB Function 

EOV Direct-Access Output Construct DEB Function 

EOV Direct-Access Input Mount Function 

EOV Direct-Access Output IBM 2321 Next Volume Mount 
Function 

EOV Direct-Access Input FEOV Repositioning Function 

EOV Direct-Access Input Exit Function 

EOV Direct-Access Output FEOV Function 

EOV Direct-Access Input Mount Function 

EOV Direct-Access Input FEOV Repositioning Function 

EOV Direct-Access Input Mount Ahead Function 

EOV Initial Read JFCB Function 

EOV Initial JFCB Extension Function 

EOV Tape Output Exit Function 

EOV Initial JFCB Extension Function 

EOV Tape Output New Volume Function 

EOV Tape Input New Volume Mounting Function 

EOV Direct-Access Input Mount Function 

EOV Direct-Access IBM 2321 Get Space Current Volume 
Function 

EOV Direct-Access Output B37 ABEND Function 

EOV Direct-Access Output Get Space Current Volume Function 

EOV Direct-Access IBM 2321 Get Space Current Volume 
Function 

EOV Direct-Access Output Next Volume Mount Function 

EOV Direct-Access Output IBM 2321 Next Volume Mount 
Function 

EOV Direct-Access Output Get Space Current Volume 
Function 
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Message ID 

IEC032I 

(Continued) 



IEC101A M 



IEC104E D 
IEC105I 

IEC106E R 

IEC107D E 



IEC108I 
IEC109A F 
IEC110D F 
IEC111E D 
IEC112I 



IEC113A 
IEC114E D 



D-l 
D-2 



ABEND/ 

Return 
Code 

E37 - 04 



Function 

EOV Direct-Access IBM 2321 Get Space Current Volume 
Function 

EOV Direct-Access Output Next Volume Mount Function 

EOV Direct-Access Output IBM 2321 Next Volume Mount 
Function 

EOV Direct-Access Output Volume Disposition Function 

Open Tape Mount Verification Function 

Open Tape Nonstandard Input Interface Function 

Open Direct-Access Volume Verification Function 

Open Tape Label Editor Function 

Open Tape Volume Mounting Function 

Open Tape Mount Verification Function 

Open EXCP Appendage Function 

Open Tape Mount Verification Function 

Open Direct-Access Volume Verification Function 

Open Tape Standard Label INPUT/MOD Header Label 1 
Function 

Open Tape Standard Label Date Protection Function 

Open Tape Destroy Label Function 

Open Direct-Access Expiration Date Error Function 

Open Direct-Access Volume Verification Function 

Open Tape Volume Verification Function 

Open Tape Volume Verification Function 

Open Direct-Access Volume Verification Function 

Open Tape Standard Label Header Label Writing Function 

Open Tape Standard Label Rewrite Volume Label Function 

Open Tape Create Label Function 

Open Tape Destroy Label Function 

Open Security Read Password (READPSWD) Function 

Open Tape Error Demount Function 

Open Tape Label Editor Function 

Open Tape Volume Mounting Function 

Open Tape Volume Verification Function 

Open Tape Standard Label INPUT/MOD Header Label 1 
Function 

Open Tape Standard Label Output Security Function 



Section 6: Diagnostic Aids 189 



Message ID 
IEC114E D-3 
D^ 

IEC115I 

IEC116A 

IEC117I 

IEC118I 
IEC130I 
IEC134D A 
IEC141I 



ABEND/ 

Return 

Code 



013-04 
013-08 
013 -0C 
013-10 
013-14 
013-18 
013 -1C 
013-20 
013 - 24 
013-28 
013 - 2C 
013-30 
013-34 
013-38 
013 -3C 
013-40 
013-44 
013-48 
013 -4C 
013-50 
013-54 
013-58 
013 -5C 

013-60 



Function 

Open Tape Initial Common Function 

Open Tape Initial Common Function 

Open Tape Error Demount Function 

Open Security Read Password (READPSWD) Function 

Open Security Read Password (READPSWD) Function 

Open Security Search Function 

Open Security Scratch/Rename Function 

Open Security Search Function 

Open Initial Function 

Open Tape Destroy Label Function 

Open Tape Initial Common Function 

Open Tape Initial Common Function 

IGG0193E (Basic Direct Access Method Executor) 

IGG0191C (Sequential Access Method Executor) 

IGG0191B (Sequential Access Method Executor) 

IGG0191B (Sequential Access Method Executor) 

IGG0191B (Sequential Access Method Executor) 

IGG0191A (Sequential Access Method Executor) 

IGG0191A (Sequential Access Method Executor) 

IGG0191A (Sequential Access Method Executor) 

IGG0191E (Sequential Access Method Executor) 

IGG0191F (Sequential Access Method Executor) 

IGG0191I (Sequential Access Method Executor) 

IGG0191H (Sequential Access Method Executor) 

IGG0191D (Sequential Access Method Executor) 

IGG01910 (Sequential Access Method Executor) 

IGG0191K (Sequential Access Method Executor) 

IGG0191 1 (Sequential Access Method Executor) 

IGG0196B (Sequential Access Method Executor) 

IGG0196B (Sequential Access Method Executor) 

IGG0196A (Sequential Access Method Executor) 

IGG01912 (Sequential Access Method Executor) 

IGG01915 (Sequential Access Method Executor) 

IGG01 91 6 (Sequential Access Method Executor) 

IGG0191 A (Sequential Access Method Executor) 
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ABEND/ 




Return 


Message ID 


Code 


IEC141I 


013-64 


(Continued) 






013-68 




013 -6C 




013-70 




013-74 




013-78 




013 -7C 




013-80 




013-84 




013-88 


IEC142I 


113-04 



113-08 





113 -0C 




113-10 




113-14 




113-18 


IEC143I 


213-04 




213-08 




213 -0C 




213-10 




213-18 


IEC144I 


313-04 


IEC145I 


413-04 



413-08 



413 -0C 



Function 

Open Merge JFCB To DCB Function 

Open BPAM Concatenation Function 

Open DCB Exit Function 

Open DCB Exit Function 

Open Merge DCB To JFCB Function 

IGG0197A (Sequential Access Method Executor) 

IGG0197A (Sequential Access Method Executor) 

IGG0197A (Sequential Access Method Executor) 

IGG0197A (Sequential Access Method Executor) 

IGG0197B (Sequential Access Method Executor) 

IGG0197B (Sequential Access Method Executor) 

Open Initial Volume Serial Function 

Open Tape Volume Reference Function 

Open Initial Volume Serial Function 

Open Direct-Access DISP=MOD Error Recovery Function 

Open Initial Volume Serial Function 

Open Final Write JFCB Function 

Open Direct-Access Parallel Mounting Function 

Open Direct-Access Parallel Mounting Function 

Open Direct-Access Missing DSCB 213 ABEND Exit 
Function 

Open Security Initialization Function 

Open Direct- Access Parallel Mounting Function 

Open Direct-Access Parallel Mounting Function 

Open Final Write JFCB Function 

Open Direct-Access Read DSCB Function 

Open Direct-Access Volume Verification Function 

Open Tape Mount Verification Function 

Open Tape Initial Common Function 

Open Tape Volume Mounting Function 

Open Tape Volume Verification Function 

Open Tape Final Common Function 

Open Tape Nonstandard Input Interface Function 

Open Tape Volume Verification Function 

Open Tape Final Common Function 

Open Tape Nonstandard Input Interface Function 
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Return 


Message ID 


Code 


IEC145I 


413-10 


(Continued) 


413-14 




413-18 




413 -1C 




413-20 


IEC146I 


513-04 


IEC147I 


613-04 



IEC148I 



IEC149I 



IEC150I 



613-08 

613 -0C 

613-10 
613-14 

713-04 

713-08 
813-04 



IEC151I 



913- 


■04 


913- 


08 


913- 


■OC 


A13 


-04 



Function 

Open Tape Final Common Function 

Open Tape Volume Reference Function 

Open Direct-Access Unit Selection Function 

Open Initial Volume Serial Function 

Open Direct-Access Volume Verification Function 

Open Tape Final Common Function 

Open Tape Standard Label Positioning Function 

Open Tape No Label Positioning Function 

Open Tape INPUT/MOD Header Label 1 Function 

Open Tape INPUT/MOD Header Label 2 Function 

Open Tape Standard Label Input User Label Function 

Open Tape Standard Label Output Security Function 

Open Tape INPUT/MOD Header Label 1 Function 

Open Tape INPUT/MOD Header Label 2 Function 

Open Tape Standard Label Output Security Function 

Open Tape INPUT/MOD Header Label 1 Function 

Open Tape INPUT/MOD Header Label 2 Function 

Open Tape Standard Label Output Security Function 

Open Tape Standard Label Rewrite Volume Label Function 

Open Tape Standard Label Header Label Writing Function 

Open Tape Standard Label Header Label Writing Function 

Open Tape Standard Label Output User Label Function 

Open Tape Standard Label INPUT/MOD Header Label 1 
Function 

Open Direct-Access Expiration Date Error Function 

Open Tape Standard Label INPUT/MOD Header Label 1 
Function 

Open Tape Standard Label INPUT/MOD Header Label 2 
Function 

Open Tape Volume Verification Function 

Open Tape Standard Label INPUT/MOD Header Label 1 
Function 

Open Tape Standard Label Output Security Function 

Open Security Search Function 

Open Tape Standard Label Positioning Function 

Open Tape No Label Positioning Function 
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ABEND/ 

Return 

Message ID Code Function 

IEC152I B13 - 04 IGG0191U (Sequential Access Method Executor) 

B13 - 08 IGG0191U (Sequential Access Method Executor) 

B13 - 0C IGG0191 V (Sequential Access Method Executor) 

B13 - 10 IGG0197U (Sequential Access Method Executor) 

B13 - 14 IGG0197U (Sequential Access Method Executor) 

B13 - 18 IGG0197F (Sequential Access Method Executor) 

B13 - 1C IGG0197F (Sequential Access Method Executor) 

B13 - 20 IGG0191T (Sequential Access Method Executor) 

B13 - 24 IGG0191T (Sequential Access Method Executor) 

B13 - 28 IGG0191T (Sequential Access Method Executor) 

IEC 1 531 C 1 3 - 04 Open Direct- Access BPAM Concatenation Function 

CI 3 - 08 Open Direct- Access BPAM Concatenation Function 

C13 - 0C Open Direct-Access BPAM Concatenation Function 

C13 - 10 Open Direct-Access BPAM Concatenation Function 

IEC 1 541 1 40 - 04 IGC0006D (RD JFCB) 

IEC155I 240-04 IGC0006D (RDJFCB) 

240 - 08 IGC0006D (RDJFCB) 

240 - 0C IGC0006D (RDJFCB) 

240 - 1 IGC0006D (RDJFCB) 

IEC 1 561 03D - 04 Open Direct-Access Parallel Mounting Function 

03D - 08 Open Direct-Access Parallel Mounting Function 

IEC157I C13 - 14 IGG01934 (Graphic Access Method Executor) 

IEC 1 5 81 D 1 3 - 04 IGG0 1 934 (Graphic Access Method Executor) 

IEC159I E13 - 04 IGG01934 (Graphic Access Method Executor) 

IEC202E K Close Tape Volume Disposition Function 

IEC210I 214 - 04 Close Tape Standard User Label Function 

214-08 Close Tape Volume Disposition Function 

IEC21 II 3 14 - 04 Close Direct-Access Read DSCB Function 

314-08 Close Direct-Access Output User Label Function 

IEC21 21 414-04 Close Direct-Access Write DSCB Function 

IEC21 31 Close Initialization Function 

IEC214I 614-04 Close Direct-Access Write File Mark Function 

IEC21 51 714-04 Close Tape Standard Trailer Label Function 

714-08 Close Tape Standard Trailer Label Function 

714 - 0C Close Tape Standard Trailer Label Function 

Close Tape Volume Disposition Function 
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Message ID 

IEC216I 

IEC217I 



ABEND/ 

Return 

Code 

A14-04 

B14-04 

B14-08 

B14-0C 

B14-10 



IEC218I 


117-04 




117-08 




117-10 




117-14 




117-18 




117-1C 




117-20 




117-24 




117-28 




117-2C 




117-30 


IEC219I 


217-04 


IEC220I 


317-04 


IEC221I 


417-04 


IEC222I 


717-04 




717-08 




717 -0C 




717-10 


IEC223I 




IEC224I 


D14-04 


IEC301A S 




IEC704A L 





IEC705I 



Function 

Close Direct-Access Partial Release Interface Function 

IGG0201B (Sequential Access Method Executor) 

IGG0201Z (Sequential Access Method Executor) 

IGG0201B (Sequential Access Method Executor) 

IGG0201Z (Sequential Access Method Executor) 

IGG0201B (Sequential Access Method Executor) 

IGG0201Z (Sequential Access Method Executor) 

IGG0201B (Sequential Access Method Executor) 

IGG0201Z (Sequential Access Method Executor) 

TCLOSE Final Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Standard Trailer Label Function 

TCLOSE Tape Standard Trailer Label Function 

TCLOSE Initial Function 

TCLOSE Direct-Access Input Function 

TCLOSE Direct-Access Output Function 

TCLOSE Direct-Access Input Function 

TCLOSE Direct-Access Output Function 

TCLOSE Tape Standard Trailer Label Function 

TCLOSE Tape Standard Trailer Label Function 

TCLOSE Tape Positioning Function 

TCLOSE Tape Positioning Function 

CLOSE Initialization Function 

IGG02034 (Graphics Access Method Executor) 

Open Security Read Password (READPSWD) Function 

Open Tape Create Label Function 

EOV Tape Output Label Create Function 

Open Tape Standard Label Rewrite Volume Label Function 

Open Tape Destroy Label Function 
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Message ID 

IEC705I 

(Continued) 

IEC900I 
IEC901I 



ABEND/ 

Return 

Code 



Function 

EOV Tape Output Label Rewrite Function 

EOV Tape Output Label Destroy (EMODVOL1) Function 

Problem Determination Initial Function 

Problem Determination User ABEND Function 



Register Usage 



The use of all registers is consistent throughout DCB processing. The following list indicates for 
each register the register number, its equated name(s), and its use. Where a register has more than 
one equated name, the use depends on the equated name. 

The contents of register 0-1 and 9-14 are saved and restored by the resident routine. 



Register 


Name 





R0 


1 


Rl 


2 


RDCB 


3 


RBASE 


4 


RCORE 


5 


RES 




RPAR 


6 


RWTG 




R6 


7 


RPARC 




R7 


8 


RWTGC 




R8 


9 


RTIOT 


10 


RUCB 


11 


RDEB 




RB 


12 


RC 


13 


RD 


14 


RET 



15 



RF 



Use 

Work register and parameter register 

Work register and parameter register 

Address of current DCB 

Base register to be modified on entry to a module 

Current work area address 

Address of the resident routine 

Address of DCB parameter list when a module controls parallel processing 
ofDCBs 

Address of WTG table 

Work register and parameter register 

Address of current entry in parameter list 

Work register and parameter register 

Address of current entry in WTG table 

Work register and parameter register 

Address of TIOT DD entry 

Address of UCB 

Address of DEB 

Work register and parameter register 

Work register and parameter register 

Work register and parameter register 

Return register when a module branches to the resident routine to issue 
a WAIT macro, offset of a branch-table entry in the next module to receive 
control when a module is branching to the resident routine to issue an 
XCTL macro, or work register 

Work register 
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How to Use Problem Determination for Debugging 



ABEND Trace 



There are two problem determination trace routines available to help in debugging. The 
ABEND trace routine traces control blocks associated with a specific ABEND condition. The 
optional work area trace routine, used if a job has failed repeatedly, traces the user's DCB, the 
O/C/EOV work area associated with that DCB, the beginning of the where-to-go table, and the 
current entry in the where-to-go table after every module of Open/Close/EOV that processes 
that DCB has finished. 

Both traces require that the generalized trace facility (GTF) be operating in external mode 
while the job to be traced is running. In addition, the operator must respond "TRACE=USR" 
when the GTF message "SPECIFY TRACE OPTIONS" appears on the terminal. GTF performs 
the trace. The user must define the data set which is to be used as output from GTF. For 
information on how to use GTF, see the GTF chapter in OS Service Aids. 



When an ABEND condition develops during the execution of the Open/Close/EOV operations, 
the ABEND trace routine of Open/Close/EOV issues a GTRACE macro instruction to call GTF 
and pass parameters on the data to be traced before ABEND is issued. 



Optional Work Area Trace 



The user requests the optional work area trace by specifying DCB=DIAGNS=TRACE on the DD 
statement of a data set for which the trace is desired. The trace takes place after each module of 
Open/Close/EOV has finished processing. Open/Close/EOV problem determination modules, 
initial and final modules of Open/Close/EOV, and access-method executor modules are not traced. 

Because the optional work area trace increases execution time, it should probably be used for 
situations in which the same ABEND has occurred more than once and recovery (if permitted) 
has been repeatedly unsuccessful. A description of how to recover from some ABEND conditions 
is in OS Data Management Services Guide. 



Formatting Traced Output 



The results of either trace are dumped in hexadecimal unless formatted by the IMDPRDMP service 
aid. When a job that used either trace has finished processing, run the IMDPRDMP service aid 
against the trace data set you have defined as the output data set for GTF. Specify the following 
parameters on the edit statement of IMDPRDMP: 

EDIT DDNAME=name of trace data set, USR=DMA1 

DMA1 is the name GTF uses to identify Open/Close/EOV data. A sample of the output produced 
by IMDPRDMP is in the OS Guide to Reading System Dumps. Complete description of the job 
control language is in the IMDPRDMP chapter of OS Service Aids. 



Resident Routine Module Trace 



The resident routine contains a module trace routine that, when active, lists each module to which 
the resident routine transfers control during execution of a processing program. 
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The module trace routine is located in the FE maintenance space of the resident routine. 
Unless you modify the code, the module trace routine is not operational. To activate it, 
you must change the NOP instruction at location RESTRACE to an unconditional branch 
(X'47F0') to location RESNOP. To make this change, you will need to locate the resident 
routine. Its address is at offset X'l 10' in the CVT; that location is labeled CVTDMSVR. 

Each time the resident routine transfers control, the module trace routine issues a write-to- 
operator message containing the name of the module receiving control. The 8-byte message 
is assigned routing codes 2 and 1 1 , so it is sent to the console and is written on the system 
output device. You can change the routing by modifying the routing code, as described in 
OS Supervisor Services and Macro Instructions. 

The module trace routine lists only those modules to which the resident routine transfers 
control. In some cases, the Open/Close/EOV modules transfer control themselves rather 
than going through the resident routine. In those cases, the modules to which control is 
transferred are not listed. 

The module trace routine is not reentrant; if more than one task tries to use it at the same 
time, two problems may result. First, it may be impossible to tell which messages result 
from which task; second, messages resulting from the two tasks may overlay each other in 
the O/C/EOV work area's message buffer, so that some messages are lost altogether. 

If SMF is active, EOV may transfer control to Close modules to process SMF records. The 
result is that Close module names appear between EOV module names in the trace. Also, 
because SMF calls TCLOSE, TCLOSE module names may appear between the names of 
the Close modules that process SMF records. 

When the module trace routine gets control, registers 2-8 are used as follows: 

Register 2 contains the address of the first DCB to be processed after the transfer of control 

Register 3 contains the beginning address, in the SVC transient area, of the module currently 
in control 

Register 4 contains the address of the O/C/EOV work area of the DCB whose address is in 
register 2 

Register 5 is the base register 

Register 6 contains the address of the where-to-go table for the Open or Close operation 
being performed 

Register 7 contains the address of the parameter list entry for the DCB whose address is in 
register 2 

Register 8 contains the address of the where-to-go table entry for the DCB whose address 
is in register 2 

If this routine is modified, registers 0, 1, 3, and 9-15 may be used without their contents 
being saved or restored. 
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SECTION 7: APPENDIX 



Abbreviations 



ABEND abnormal end of task 

ANSI American National Standards Institute 

ASCII American National Standard Code for Information Interchange 

AUL American National Standard user label 

BALR branch-and-link register 

BDAM basic direct access method 

BLP bypass label processing 

BPAM basic partitioned access method 

BPI bits per inch 

BSAM basic sequential access method 

BTAM basic telecommunications access method 

CCW channel command word 

CPU central processing unit 

CSW channel status word 

CVT communications vector table 

DASD direct-access storage device 

DCB data control block 

DD data definition 

DEB data extent block 

DSCB data set control block 

EBCDIC extended binary-coded-decimal interchange code 

ECB event control block 

EOD end-of-data 

EOF end-of-file 

EOV end-of-volume 

EOVC end-of-volume concatenation 

ERP error recovery procedure 

EXCP execute channel program 
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GAM 


graphics access method 


GTF 


generalized trace facility 


HEX 


hexadecimal 


ID 


identification 


I/O 


input/output 


IOB 


input/output block 


ISAM 


indexed sequential access method 


JFCB 


job file control block 


MVT 


multiprogramming with a variable number of tasks 


NL 


nonlabeled 


NSL 


nonstandard label 


OCR 


optical character recognition 


PCI 


program controlled interruption 


PLM 


program logic manual 


PO 


partitioned organization 


PS 


physical sequential 


PSW 


program status word 


QSAM 


queued sequential access method 


QTAM 


queued teleprocessing access method 


RER 


reduced error recovery 


RPS 


rotational position sensing 


SL 


IBM standard label 


SMF 


system management facility 


SUL 


IBM standard user label 


SVC 


supervisor call 


TCB 


task control block 


TIOT 


task input/output table 


TSO 


time sharing option 


TTR 


relative track address 


UCB 


unit control block 


VTOC 


volume table of contents 
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WTG where-to-go 

WTO write to operator 

WTOR write to operator with reply 
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Glossary 



The following terms are defined as they are used in this book. If you do not find the term you are looking for, refer to 
the index or to the IBM Data Processing Glossary, GC20-1699. 



abnormal end of task (ABEND): Termination of a task 
before normal completion because of an error condition. 

access method:. A technique for moving data between 
main storage and input/output devices. 

alternate track: For direct-access devices, a track desig- 
nated to be used in place of a defective primary track. 

asynchronous: Without regular time relationship; unex- 
pected or unpredictable with respect to the execution of 
a program's instructions. 

attribute: A characteristic; for example, attributes of a 
data set include record length, record format, data set 
name, associated device type and volume identification, 
use, and creation date. 

auxiliary storage: Data storage other than main storage; 
for example, storage on magnetic-tape or direct-access 
devices. Synonymous with external storage, secondary 
storage. 

basic direct access method (BDAM): An access method 
used to directly retrieve or update particular blocks of a 
data set on a direct-access device. 

basic partitioned access method (BPAM): An access 
method that can create program libraries, in direct- 
access storage, for convenient storage and retrieval of 
programs. 

basic sequential access method (BSAM): An access 
method for storing or retrieving data blocks in a contin- 
uous sequence, using either a sequential-access or a direct- 
access device. 

basic telecommunications access method (BTAM): An 

access method that permits read/write communications 
with remote devices. 

buffer: An area of storage that is temporarily reserved 
for use in performing an input/output operation, into 
which data is read or from which data is written. Synon- 
ymous with I/O area. 

channel command word (CCW): A double word at the 
location in main storage specified by the channel address 
word. One or more CCWs make up the channel program 
that directs channel operations. 



channel status word (CSW): A doubleword in main storage 
that provides information about the termination of input/ 
output operations. 

clear: To place one or more storage locations into a pre- 
scribed state, usually or the space character. American 
National Standard Definition. 

concatenated data sets: A group of logically connected 
data sets that are treated as one data set for the duration of 
a job step. 

control block: A storage area used by an operating system 
to hold control information. 

data control block (DCB): A control block used by access 
routines in storing and retrieving data. 

data definition name (ddname): The name of a data defi- 
nition (DD) statement, which corresponds to a data control 
block that contains the same name. 

data definition (DD) statement: A job control statement 
that describes a data set associated with a particular job 
step. 

data extension block (DEB): An extension of the data con- 
trol block that contains information about the physical 
status of the data set being processed. 

data set: The major unit of data storage and retrieval in the 
operating system, consisting of a collection of data in one 
of several prescribed arrangements and described by control 
information to which the system has access. 

data set control block (DSCB): A data set label for a data 
set in direct-access storage. 

direct access: Retrieval or storage of data by a reference 
to its location on a volume, rather than relative to the prev- 
iously retrieved or stored data. 

direct-access storage device (DASD): A device in which the 
access time is effectively independent of the location of the 
data. 

error recovery procedures (ERP): Standard procedures de- 
signed to ensure that all the routines that test particular 
devices provide a uniform type and quality of information. 
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event: An occurrence of significance to a task; typically, 
the completion of an asynchronous operation, such as an 
input/ output operation. 

event control block (ECB): A control block used to rep- 
resent the status of an event. 

extended binary coded decimal interchange code 

(EBCDIC): A set of 256 characters, each represented by 
8 bits. 

extent: A continuous space on a direct-access storage 
device, occupied by or reserved for a particular data set 
or part of a data set. 

fixed-length record: A record having the same length as 
all other records with which it is logically or physically 
associated. Contrast to variable-length record. 

function: A unit of processing. 

header label: A file or data-set label that precedes the 
data records on a unit of a recording medium. 

job management: The functions of the job scheduler and 
master scheduler. 

job scheduler: The part of the control program that reads 
and interprets job definitions, schedules the jobs for pro- 
cessing, initiates and terminates the processing of jobs and 
job steps, and records job output data. 

job step task: A task that is initiated by an initiator/ 
terminator in the job scheduler in accordance with speci- 
fications in an execute (EXEC) statement. In MVT, a 
job step task can initiate any number of other tasks. 

main storage: All program-addressable storage from 
which instructions may be executed and from which data 
can be loaded directly into registers. 

module: A unit of code. 

nonresident portion (of a control program): Control- 
program routines that are loaded into main storage as 
they are needed and can be overlaid after their 
completion. 

nonspecific volume request: In job control language (JCL), 
a request that allows the system to select a suitable volume. 

nonstandard labels: Labels that do not conform to Amer- 
ican National Standard or IBM System/360 standard label 
conventions. 

nucleus: That portion of a control program that always 
remains in main storage. 



parallel processing: Concurrent or simultaneous execution 
of two or more processes. Contrasts with serial processing. 

partitioned data set: A data set in direct access storage that 
is divided into partitions, called members, each of which can 
contain a program or part of a program. Each partitioned 
data set contains a directory (or index) that the control 
program can use to locate a program in the library. 

password: In systems with the time sharing option (TSO), 
a 1- to 8-character symbol that may be required at the time 
the user logs on the system. The password is confidential; 
the user identification is not. Users can also assign passwords 
to data sets. 

problem determination: A procedure or process that a user 
can follow after receiving an error message to determine the 
cause of the error. 

queued access method: Any access method that automatically 
synchronizes the transfer of data between the program using 
the access method and input/output devices, thereby eliminating 
delays for input/output operations. 

queued sequential access method (QSAM): An extension of the 
basic sequential access method (BSAM), which produces a queue 
of input data blocks that have been processed and are awaiting 
transfer to auxiliary storage or to an output device. 

queued telecommunications access method (QTAM): A method 
used to transfer data between main storage and remote termi- 
nals. Application programs use GET and PUT macro instructions 
to request the transfer of data, which is performed by a message 
control program. The message control program synchronizes 
the transfer, thus eliminating delays for input/output operations. 

record length: A measure of the size of a record, usually speci- 
fied in units such as words or characters. American National 
Standard definition. 

simple buffering: A technique for controlling buffers in such 
a way that the buffers are assigned to a single data control block 
and remain so assigned until the data control block has been 
processed. 

subpool: A set of 2K-byte storage blocks allocated for a partic- 
ular task and identified by a label (called the subpool number). 

subtask: A task that is initiated and terminated by a higher- 
order task. 

supervisor call instruction (SVC): An instruction that inter- 
rupts the program being executed and passes control to the 
supervisor so that it can perform a specific service indicated 
by the instruction. 
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supervisor state: A state of the central processing unit, 
in which it can execute input/output and other privi- 
leged instructions. 



SVC routine: A control-program routine that performs 
or begins a control program service specified by a 
supervisor call. 

synchronous: Occurring with a regular or predictable 
time relationship. 

SYSIN: A system input stream; also, a name used as 
the data definition name of a data set in the input 
stream. 

SYSOUT: A system output stream; also, an indicator 
used in data definition statements to signify that a data 
set is to be written on a system output unit. 

SYS1.SVCLIB: The partitioned system data set that 
contains the nonresident SVC routines, nonresident 
error-handling routines, and access method routines. 

system management facilities (SMF): An optional part 
of the control program that provides the means for 
gathering and recording information that can be used 
to evaluate system usage. 

task: A unit of work for the central processing unit 
from the standpoint of the control program; therefore 
the basic multiprogramming unit under the control 
program. 



task control block (TCB): The consolidation of control 
information related to a task. 

telecommunications access method (TCAM): A method 
used to transfer data between main storage and remote 
or local terminals. Application programs use either GET 
and PUT or READ and WRITE macro instructions to 
request the transfer of data, which is performed by a 
message control program. The message control program 
synchronizes the transfer, thus eliminating delays for 
terminal input/output operations. 

time sharing option (TSO): An optional part of OS that 
provides conversational time sharing from remote 
terminals. 

transient area: A main-storage area used for temporary 
storage of transient routines, such as nonresident SVC 
or error-handling routines. 

undefined record: A record having an unspecified or un- 
known length. 

variable-length record: A record having a length inde- 
pendent of the length of other records with which it is 
logically or physically associated. Contrast to fixed- 
length record. 

volume table of contents (VTOC): A table on a direct- 
access volume that describes each data set on the volume. 
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Indexes to Systems Reference Library publications are consolidated in OS Master Index to Logic Manuals, GC28— 6644. 
For additional information about any subject listed below, refer to other publications listed for the same subject in the 
Master Index. 



abbreviations 199-202 
ABEND 

called from problem determination 88 

codes, internal 178-185 

messages, cross-referenced to function and module 
ABEND interpretation and recovery 

overview of processing 87—88 
access method executor, exits to 

during close 38 

during open 30 
AL processing 

(see SL processing) 



B37 ABEND processing 80 
BDAM 

parallel mounting 14 
BLP processing 

during close 40 

during open 22 
BPAM, concatenated data set 



data areas (continued) 

Where-to-go (WTG) table 167-168 

WTGPATH field 168 
DCB ABEND exit routine 1 2 
DCB exit list routines 

ABEND exit 88 

B37 ABEND exit 80 

OPENJ 3 
169-176 TCAMexit 12 

user label routines 
during close 40,44 
during EOV 66,68,70,74,78 
during open 14,20,24,28 
DCBOFLGS field 166 
DEB 

built 76 

removed from TCB DEB chain 48 

restored for FEOV 78 
DEBDCBMK field 164-165 
directory, function to module 143-151 

open and OPENJ 143-146 

close and TCLOSE 146-148 

EOV 148-150 

common functions 151 



14 




close 35 

overview of processing 35 
concatenated data set processing 

BPAM 14 

direct-access volumes 66,78 

tape volumes 66 



DADSM routines, exits to 26,80,82 

data areas 

DCBOFLGS field 166 
DEBDCBMK field 164-165 
JFCBMASK field 161-164 
O/C/EOV work area 153-161 
Transfer control (XCTL) table 166- 



167 



EMODVOL1 74,130 

(see also directory) 

end of data processing 

direct-access volumes 78 
tape volumes 66 
end of file processing (see end of data processing) 
EOD processing (see end of data processing) 
EOF (see end of data processing) 
EOV 61 

overview of processing 63 
error processing 

DCB error handling 177-178 
during EOV 

B37 ABEND exit 80 
recovery from invalid tape 74 
during Open 

213 ABEND exit 12 
DISP=MOD error recovery 1 2 
expiration date error recovery 12 
(see also problem determination) 
EXCP 

appendage processing 32 
requests, purged 38 
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function to module cross reference 
for ABEND conditions 169-176 



generalized trace facility, exit to 88,90 

glossary 203-205 

GTF (see generalized trace facility) 



internal ABEND codes 
IFG0190P 141 

(see also directory) 
IFG0190R 140 
IFG0193A 96 

(see also directory) 
IFG0193B 97 

(see also directory) 
IFG0193C 99 

(see also directory) 
IFG0193D 99 

(see also directory) 
IFG0193E 99 

(see also directory) 
IFG0194A 105 

(see also directory) 
IFG0194C 105 

(see also directory) 
IFG0194D 97 

(see also directory) 
IFG0194E 103 

(see also directory) 
IFG0194F 97 

(see also directory) 
IFG0194G 98 

(see also directory) 
IFG0194H 98 

(see also directory) 
IFG0194I 98 

(see also directory) 
IFG0194J 99 

(see also directory) 
IFG0195A 103 

(see also directory) 
IFG0195B 100 

(see also directory) 
IFG0195C 101 

(see also directory) 
IFG0195D 101 

(see also directory) 
IFG0195E 104 

(see also directory) 
IFG0195F 105,134 

(see also directory) 



178-185 



IFG0195G 


104 


(see also directory) 


IFG0195H 


100 


(see also directory) 


IFG0195J 


103 


(see also directory) 


IFG0195K 


100 


(see also directory) 


IFG0195M 


103 


(see also directory) 


IFG0195N 


100 


(see also directory) 


IFG0195O 


104 


(see also directory) 


IFG0195P 


104 


(see also directory) 


IFG0195T 


106 


(see also directory) 


IFG0195U 


107 


(see also directory) 


IFG0195V 


106 


(see also directory) 


IFG0196J 


108 


(see also directory) 


IFG0196K 


108 


(see also directory) 


IFG0196L 


108 


(see also directory) 


IFG0196M 


108 


(see also directory) 


IFG0196N 


102 


(see also directory) 


IFG0196O 


101 


(see also directory) 


IFG0196P 


109,138 


(see also directory) 


IFG0196Q 


102 


(see also directory) 


IFG0196T 


102 


( see also directory) 


IFG0196U 


102 


(see also directory) 


IFG0196V 


110 


(see also directory) 


IFG0196W 


110,111 


(see also directory) 


IFG0196X 


111 


(see also directory) 


IFG0198N 


111 


(see also directory) 


IFG0199B 


141 


(see also directory) 


IFG0199D 


141 


(see also directory) 


IFG0199E 


141 


(see also directory) 


IFG0199R 


142 


(see also directory) 


IFG019RA 


139 


IFG0200P 


141 


(see also directory) 


IFG0200R 


140 
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IFG0200V 

(see also 
IFG0200W 

(see also 
IFG0200Y 

(see also 
IFG0201R 

(see also 
IFG0202B 

(see also 
IFG0202C 

(see also 
IFG0202D 

(see also 
IFG0202E 

(see also 
IFG0202F 

(see also 
IFG0202G 

(see also 
IFG0202H 

(see also 
IFG0202I 

(see also 
IFG0202J 

(see also 
IFG0202K 

(see also 
IFG0202L 

(see also 
IFG0202U 

(see also 
IFG0209B 

(see also 
IFG0209D 

(see also 
IFG0209E 

(see also 
IFG0209R 

(see also 
IFG0230P 

(see also 
IFG0232D 

(see also 
IFG0232G 

(see also 
IFG0232J 

(see also 
IFG0232M 

(see also 
IFG0232S 

(see also 
IFG0232Y 

(see also 
IFG0232Z 

(see also 
IFG0239B 

(see also 
IFG0239D 

(see also 
IFG0239E 

(see also 



112,115 
directory) 

112,115 
directory) 

112 
directory) 

115 
directory) 

114 
directory) 

116 
directory) 

116 
directory) 

116 
directory) 

114 
directory) 

114 
directory) 

118 
directory) 
118 

directory) 
117 
directory) 

117 
directory) 

117 
directory) 

121 
directory) 

141 
directory) 

141 
directory) 

141 
directory) 
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